procedure TForm3.FormCreate(Sender: TObject);
var frame : TFrame;
Form3: TForm3;
hoehe : Integer;
breite: Integer;
begin

   SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) AND NOT WS_CAPTION);
   {
    ClientHeight und ClientWidth sind die
    voreingestellten Größen des Fensters
   }
   hoehe := ClientHeight;
   breite := ClientWidth;
   Form3.ClientHeight := Screen.Height - 5;
   Form3.ClientWidth := Screen.Width - 5;
   Form3.Top := 0;
   Form3.Left := 0;
   Refresh;

  frame := TFrame5.Create(self);
  frame.Parent := Form3;
  frame.Left := (ClientWidth div 2) - (Frame.Width div 2);
  frame.Top := (ClientHeight div 2) - (Frame.Height div 2);

end;