//DYNAMICZNE TWORZENIE PÓL INPUT  *************************
procedure TForm1.Button1Click(Sender: TObject);
var
n,i: Integer;
begin

        n := Strtoint(n_field.Text);

    for i:=1 to n do
        with TEdit.Create(self) do begin
        Width:= 120;
        Height:=70;
        Left:=60;
        Top:=30+i*(50);
        Name := 'x_' + Inttostr(i);
        Text := '';
        Parent:=self;
        Visible:=True;
    end;

     for i:=1 to n do
        with TEdit.Create(self) do begin
        Width:= 160;
        Height:=70;
        Left:=460;
        Top:=30+i*(50);
        Name := 'xx_' + Inttostr(i);
        Text := '';
        Parent:=self;
        Visible:=True;
    end;

end;