[ins813]

Делфа 2010, есть код можешь отредактировать чтобы просто вылазила форма2 ?

Код:

procedure TForm2.FormCreate(Sender: TObject);
var
  frm: tform;
begin
frm := TForm.Create(nil);
  frm.Position := poDesktopCenter;
  frm.BorderStyle := bsNone;
  frm.height := 200;
  frm.width := 130;
  frm.Show;
  frm.Canvas.Font.Size := 50;
  frm.Canvas.TextOut(10, 10, 'loading...');
  Sleep(5000);
  frm.free;
end;