[lmikle]

Код:

procedure TForm1.Editclick(Sender : TObject);
begin
  (Sender As TEdit).Text :=  FormatDateTime('tt', SysUtils.Time);
end;

...

(Form1.FindComponent('Edt_test_'+IntToStr(i)) as TEdit).OnClick := EditClick;