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

Экий ты меркантильный Rafa.

Код:

Var
  i, n: Integer;
begin
 N := 3;
 for i := 1 to N
 do begin
    with TEdit.Create(Self)
    do begin
       Parent := Self;
       Top := 50;
       Left := i * 80;
       Width := 75;
       Height := 18;
       Text := 'Вводилка' + IntToStr(i);
       end;
    with TButton.Create(Self)
    do begin
       Parent := Self;
       Top := 70;
       Left := i * 80;
       Width := 75;
       Height := 18;
       Caption := 'Жмякалка' + IntToStr(i)
       end;
    with TStringGrid.Create(Self)
    do begin
       Parent := Self;
       Top := 90;
       Left := i * 80;
       Height := 79;
       Width := 80;
       Caption := 'Сеточка' + IntToStr(i)
       end;
    end;
end;