Fenster zu langsam

[Pseudemys Nelsoni]

hallöchen,

ich möchte ein mdi-kindfenster erstellen, ist aber ziemlich lahm so wie ich das jetzt hab.

der "code" ist zur zeit so:

Delphi-Quellcode:

Type
  TStatusWindowClass = class(TObject)
  private
    StatusWindow: TForm;
    StatusBox: TRichEdit;
    StatusTextBox: TEdit;
  public
    procedure CreateStatusWindow;
  end;

implementation

procedure TStatusWindowClass.CreateStatusWindow;
begin
  StatusWindow := TForm.Create(nil);
  StatusBox := TRichEdit.Create(StatusWindow);
  StatusTextBox := TEdit.Create(StatusWindow);
  StatusWindow.FormStyle := fsMDIChild;
  StatusWindow.WindowState := wsMaximized;
  with StatusBox do
  begin
    Parent := StatusWindow;
    Left := 0;
    Top := 0;
    Width := StatusWindow.ClientWidth;
    Height := StatusWindow.ClientHeight - 22;
  end;
  with StatusTextBox do
  begin
    Parent := StatusWindow;
    Left := 0;
    Top := StatusBox.Height + 1;
    Width := StatusWindow.ClientWidth;
    Height := 21;
  end;
end;

kann mir jemand sagen wie ichs schneller hinbekomme? ich hab die exe mal im anhang, brauch man nur starten dann sieht man was ich meine...es sollte schon zum start maximiert sein