PageControl: in neuem Tab ein Object erstellen

[Matze]

Hallo,

um mal bei deinem Programmierstil zu bleiben

Delphi-Quellcode:

var
  i: Integer;
  NewTab: TTabSheet;
begin
  for i := 0 to 3 do
  begin
    NewTab := TTabSheet.Create(PageControl1);
    with NewTab do
    begin
      PageControl := PageControl1;
      Name := 'sname' + IntToStr(i);
      Caption := IntToStr(i);

      with TRichEdit.Create(NewTab) do
      begin
        Parent := NewTab;
        Name := 'RichEdit' + IntToStr(i);
        Text := Name;
      end;
    end;
  end;
end;