[Casper_gold]

Здравствуйте! У меня возникла проблема с реализацией одной программы "молекулами". Постоянно выдает ошибку связанную с памятью,а исправить не как не могу.
программа должна работать так:нажимаем на пуск и начинают двигаться 30 шейпов с рандомной скоростью,при соприкосновении друг с другом и стенок "сосуда" отталкиваться на v_x:=-V_x,v_у:=-V_у.Компоненты создавать я не хотел,а только присвоить к массиву шейпы.
В программе
shape:array[1..3] of TShape-массив шейпов
a,V,V_x,V_y-скорость перемещения по горизонтали и вертикали
x,y-новые координаты.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     Shape1: TShape;     Shape2: TShape;     Shape3: TShape;     Timer1: TTimer;     Button1: TButton;     Button2: TButton;     procedure Timer1Timer(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1; shape:array[1..3] of TShape; var n:real; a,V,V_x,V_y,l:integer; x,y:real; FindShape: TComponent; implementation   {$R *.dfm}   procedure TForm1.Timer1Timer(Sender: TObject); var i:integer; begin for i:=1 to 3  do begin shape[i].Top:=round(y); shape[i].Left:=round(x); end;   for i:=1 to 3 do begin     FindShape:=FindComponent('Shape'+inttostr(i));     if shape[i].Left<(FindShape as TShape).Left then v_x:=-V_x;   if shape[i].top<(FindShape as TShape).top then v_y:=-V_y;      x:=(FindShape as TShape).Left+V_x;   y:=(FindShape as TShape).top+V_y;     end;   end;     procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin timer1.Enabled:=true; for i:=1 to 3 do  begin shape[i].Visible:=true; randomize; v:=random(5)+1; a:=random(360); V_x:=round(v*cos(a)); v_y:=round(v*sin(a)); shape[i].Top:=350+V_y; shape[i].Left:=350+V_x; x:=shape[i].Left+V_x; y:=shape[i].Top+V_y; end; end; end.

Когда с одним шейпом делал все получалось,а тут
Понять свою ошибку тоже не могу, объясните кто может? И если не трудно подскажите поподробнее как сделать?

[PhoeniX]

эм... чесно, я хз, но на первый взгляд надо бы для КАЖДОГО шейпа свои скорости (если я правильно понял задачу). так что думай...

[Страдалецъ]

Долго и вдумчиво искал Create хотя-бы для одно элемента Shape - не удалось, видимо вы это очень надежно скрыли от нас и Дельфи.