procedure TForm1.Button1Click(Sender: TObject);
var MyForm : TForm;
    MyLabel : TLabel;
    i : integer;
begin
  MyForm := TForm.Create(Application);
  MyLabel := TLabel.Create(MyForm);
  with MyForm do
  begin
    try
      Caption := 'TEST';
      Width := 350;
      Height := 200;
      Position := poScreenCenter;
      with MyLabel do
      begin
        Parent := MyForm;
        Caption := 'Bitte warten !';
        Top := 50;
        Top := 20;
        Left := 20;
      end;
      Show;
      for i:= 1 to 20 do
      begin
        sleep(50);
      end;
    finally
      MyForm.Free;
    end;
  end;
end;