массив tedit и процедура с ним(delphi)

[xbIm]

delphi 7
ну вот создал массив tedit
for i:=1 to n do begin
l[i]:=tedit.create(self);
with l[i] do begin
top:=edit1.Top+50;
left:=20+(i-1)*70;
width:=30;
parent:=self;
end;
end;
как сделать так чтобы при нажатии нажатии мышкой на один из tedit'ов значение edit1.caption:=l[i].caption(тоесть той на которую нажали)

[SNUPY]

for i:=1 to n do begin
l[i]:=tedit.create(self);
with l[i] do begin
top:=edit1.Top+50;
left:=20+(i-1)*70;
width:=30;
parent:=self;
OnClick:=EditsClick;
end;
end;
...
procedure TForm1.EditsClick(Sender: TObject);
var I:cardinal;
begin
   for i:=1 to n do 
   begin
      if Sender=l[i] then
      begin
         edit1.Text:=l[i].Text;
         Exit;
      end; 
   end; 
end;

ЗЫ у Edit'a есть свойство Caption?????

[xbIm]

чорт описался
text конечно же
спасибо