Движение сгенерированных объектов.

[AsyaPro]

Есть массив с объектами(TImage), также на форме установлен таймер с задержкой в 3с. По истечению трёх секунд рандомно генерируется один из 2-ух объектов. Это всё работает, но как сделать, что бы эти объекты начали движение по Oy!? Вот код:

var
  Form1: TForm1;
  randomiz: integer;
  i, v, t:integer;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;
DoubleBuffered:=true;
end;

var sn: Array [1..10000] of TImage;
procedure TrueGenerate;
begin
 sn[i]:=TImage.Create(form1);
 sn[i].Parent:=form1;
 sn[i].Width:=130;
 sn[i].Height:=130;
 sn[i].Picture:=Form1.Image1.Picture;
 sn[i].Left:=random(Form1.Width);
end;

var ir: Array [1..10000] of TImage;
procedure FalseGenerate;
begin
 ir[v]:=TImage.Create(form1);
 ir[v].Parent:=form1;
 ir[v].Width:=130;
 ir[v].Height:=130;
 ir[v].Picture:=Form1.Image2.Picture;
 ir[v].Left:=random(Form1.Width);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

randomiz:=random(4);
if randomiz<3 then
begin
TrueGenerate;
end;

if randomiz>2 then
begin
FalseGenerate;
end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 sn[i].Top:=sn[i].Top+5;
 ir[v].Top:=ir[v].Top+5;
end;

end.

Программа запускается, TImage едет по Oy, НО выдаётся огромная куча ошибок(см. прикрепление).

[Toxa]

где задается значение переменной "v" ?!
почему не меняется значение переменной "i" ?!

[min@y™]

Самый первый шаг к правильному, быстрому, красивому и годному решению твоей задачи - выбросить TImage из проекта. Совсем.

[AsyaPro]

@Min@y, а поподробнее можно, ну, носом ткнуть где и что изменить.
@Toxa, нет, нужно что бы было именно TImage, TShape уж точно не подойдёт.

[min@y™]

нужно что бы было именно TImage

Кому нужно? Как звучит задание в оригинале?

TShape уж точно не подойдёт.

А кто говорил про TShape?

[AsyaPro]

Сообщение от min@y™

Кому нужно? Как звучит задание в оригинале?

А кто говорил про TShape?

А что вы предложите вместо TImage!?
В оригинале я написал, что есть массив с TImage, то есть я про него и писал?

[min@y™]

я написал, что есть массив с TImage, то есть я про него и писал?

Так не пойдёт. Я спрашивал именно про оригинал задания! Можно фото/скриншот/сам документ (копия), в котором сформулирована задача, которую ты пытаешься решить путём написания программы. Без этого опять будет XYZ.

[AsyaPro]

Сообщение от min@y™

Так не пойдёт. Я спрашивал именно про оригинал задания! Можно фото/скриншот/сам документ (копия), в котором сформулирована задача, которую ты пытаешься решить путём написания программы. Без этого опять будет XYZ.

Оригинал задания в моей голове, сам придумал, если быть точным.

[Toxa]

а поподробнее можно, ну, носом ткнуть где и что изменить.

нужно задать значение для v (v := 1), иначе идет обращение неизвестно к какой записи массива, скорее всего даже вне заданного диапазона, от сюда и ошибка
и переменные надо наращивать перед созданием Timage, иначе в массиве будет ссылка только на последний созданный и от массива не будет толку
перефразирую minay, что надо получить в результате?

[min@y™]

Оригинал задания в моей голове, сам придумал, если быть точным.

Ну так сформулируй для дядей грамотно, и не морочай голову. Ибо 50% решения - грамотная формулировка задания.