После всплытия первой формы всплывает 2

[cargo29]

Вообщем дело такое, при включение программы всплывает 1 форма через 3 секунды 2 форма появляется и первая скрывается, как бы все ничего первая появляется но без изображения. Как сделать правильно, кто сталкивался с такой проблемой?

это первая форма

procedure TForm2.FormPaint(Sender: TObject);
begin
Sleep(6000);
Form2.Hide;
end;
procedure TForm2.FormHide(Sender: TObject);
begin
Form1.Show;
end;

[FaTaL]

Вы случайно не Splash форму сделать хотите? Если до, то нужно сделать вторую форму главной формой программы. Если надо скину код.

[cargo29]

Сообщение от FaTaL

Вы случайно не Splash форму сделать хотите? Если до, то нужно сделать вторую форму главной формой программы. Если надо скину код.

Скиньте пожалуйста, форму делаю из рисунка если вы про это имели ввиду

[cargo29]

Может еще кто знает?????????????????????????

[cargo29]

Помогли сам решил вопрос, кому если пригодиться вот вариант

program Project1;

uses
  Forms, SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
  Application.Initialize;
  Form2:=TForm2.Create(nil);
  Form2.Show;
  Form2.Update;
  Application.Title := 'Расчет резистора';
  Application.CreateForm(TForm1, Form1);
  Sleep(1500);
  Form2.Update;
  Form2.Hide;
  Form2.Free;
  Application.Run;
end.

procedure TForm2.FormCreate(Sender: TObject);
var rgn, resrgn:HRGN;
x,y, xfirst:Integer;
begin
resrgn:=CreateRectRgn(0,0,0,0);
for y:=0 to img1.Height-1 do
begin
x:=0;
while x<img1.Width-1 do
begin                          
  if img1.Canvas.Pixels[x,y]=RGB(0,0,0) then
  begin
  xfirst:=x;
  x:=x+1;
  while (x<img1.Width-1) and (img1.Canvas.Pixels[x,y]=RGB(0,0,0)) do
  x:=x+1;
  rgn:=CreateRectRgn(xfirst, y, x, y+1);
  CombineRgn(resrgn, resrgn, rgn, RGN_OR);
  DeleteObject(rgn);
end;
 x:=x+1;
 end;
 end;
 SetWindowRgn(Handle, resrgn, true);
 end;

основная форма

procedure TForm1.FormCreate(Sender: TObject);
var rgn, resrgn:HRGN;
x,y, xfirst:Integer;
begin
resrgn:=CreateRectRgn(0,0,0,0);
for y:=0 to img1.Height-1 do
begin
x:=0;
while x<img1.Width-1 do
begin
  if img1.Canvas.Pixels[x,y]=RGB(0,0,0) then
  begin
  xfirst:=x;
  x:=x+1;
  while (x<img1.Width-1) and (img1.Canvas.Pixels[x,y]=RGB(0,0,0)) do
  x:=x+1;
  rgn:=CreateRectRgn(xfirst, y, x, y+1);
  CombineRgn(resrgn, resrgn, rgn, RGN_OR);
  DeleteObject(rgn);
end;
 x:=x+1;
 end;
 end;
 SetWindowRgn(Handle, resrgn, true);
end;

[alextrof94]

А еще в дельфях есть компонент splashform, делается просто, и изображение прозрачное поставить возможно.