Tela de Splash

1ªAbra o Delphi 7 ou 6

2ªAdicione um Timer na paleta ''System'' e adicione 1 image na paleta ''Additional'' coloque dentro do form

3ª agora clique no Form e configure da seguinte forma
 BorderStyle : bsNone


4ª Agora vá em Picture e seleccione a imagen do seu gosto

5ª Se sua imagen ficar assim configure o componente imagen  assim
Image1
Align : alClient
Stretch : True
Agora veja se ficou assim depois das configurações

6ª Agora só ajuste o Form aumente  diminua ajuste Depois disso Adicione um Gauge na paleta (Samples)
e coloque em um lugar que vc queira

7ªagora vamos aos códigos clique duas vezes no Timer1 e coloque
Timer1
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Gaunge1 para carregar o Gaunge1
Gauge1.Progress:=10;
Sleep(500);
Gauge1.Progress:=20;
Sleep(500);
Gauge1.Progress:=30;
Sleep(500);
Gauge1.Progress:=40;
Sleep(500);
Gauge1.Progress:=50;
Sleep(500);
Gauge1.Progress:=60;
Sleep(500);
Gauge1.Progress:=75;
Sleep(500);
Gauge1.Progress:=90;
Sleep(500);
Gauge1.Progress:=100;
Sleep(200);
//Form Executar E destrui
Form2.Show;
Form1.Destroy;
end;

8ª o código assima ele Carrega o Gauge (A barrinha)

9ª agora veja se carrego normal

10ª pronto se vc quiser coloque uma tela de login no Form2


obs: se dar errado me add no msn ou mande email Dhionathans_Felix@hotmail.com