procedure TForm1.Button1Click(Sender: TObject); var edt:TEdit; i:integer; begin for i:=1 to adoquery1.recordcount do begin edt:=TEdit.Create(self); edt.Parent:=self; edt.Width:=121; edt.Height:=21; edt.Left:=50; edt.Top:=i*30; edt.Name:='edit'+inttostr(i); edt.Text:='edit'+inttostr(i); end; end;
var
edt:TEdit;
i:integer;
begin
for i:=1 to adoquery1.recordcount do
begin
edt:=TEdit.Create(self);
edt.Parent:=self;
edt.Width:=121;
edt.Height:=21;
edt.Left:=50;
edt.Top:=i*30;
edt.Name:='edit'+inttostr(i);
edt.Text:='edit'+inttostr(i);
end;
end;