Код

procedure TForm1.FormCreate(Sender: TObject); begin fx:=100;fy:=100; randomize; end; procedure TForm1.Timer1Timer(Sender: TObject); begin fx:=random(clientwidth); fy:=random(clientheight); end; end.

что randomize даёт?? ведь можно и без него или он позволят по-более перебирать??

Можно и без него... Но тогда случайные значения у тебя будут повторяться при каждом запуске проги...

Цитата

что randomize даёт??

Дело в том, что random возвращает псевдослучайное число. Т.е., последовательность строго говоря не случайная. Каждое последующее число в ней является функцией от предыдущего. А поскольку это так, то randomize, обеспечивает некоторое начальное значение, увы тоже не случайное, но зависящее от тек.времени.
Если randomize не вызывать, то тогда начальным числом всегда будет 0. Поэтому, последовательность вызовов random будет всегда давать одинаковую последовательность чисел при каждом запуске программы.
Кстати, этим иногда удобно пользоваться при отладке программы.

спасибо

Цитата

при отладке программы.

аааааааа как это??

Ну если у тебя каждый раз Random даёт разные значения, то выловить ошибку сложнее, т.к. программа каждый раз действует по-разному, даже может быть такое, что при одном запуске - нет ошибки, при другом - есть... Тогда вылавливание ошибки усложняется...
Если же не делать Randomize, то Random будет повторяться, то есть программа будет действовать одинаково при каждом запуске, и так легче найти ошибку, если она есть...