delphi平添动态图片

delphi添加动态图片
一般情况下，添加了gif图片是可以动的，但是我做了一个登陆界面以后，就只显示静态了，求指导。下面是登陆界面的程序

program Project1;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Form1:=TForm1.Create(Form1);
  Form1.Show;
  Form1.Update;

  Application.CreateForm(TForm2, Form2);
  Sleep(3000);
  Form1.Hide;
  Form1.Free;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[解决办法]

Delphi(Pascal) code

uses  Forms,Windows,  Unit1 in 'Unit1.pas' {Form1},  Unit2 in 'Unit2.pas' {Form2};{$R *.res}procedure MySleep(dwMilliseconds: DWORD);var  i: Integer;  dwMsSplit: Dword;begin  dwMsSplit := dwMilliseconds div 50;  for i := 0 to dwMsSplit do  begin    Sleep(50);    Application.ProcessMessages;  end;end;begin  Application.Initialize;  Form1:=TForm1.Create(Form1);  Form1.Show;  Form1.Update;  Application.CreateForm(TForm2, Form2);  MySleep(3000);  Form1.Hide;  Form1.Free;  Application.CreateForm(TForm1, Form1);  Application.Run;end.
[解决办法]
procedure MySleep(dwMilliseconds: DWORD);
var
 i: Integer;
 dwMsSplit: Dword;
begin
 dwMsSplit := dwMilliseconds div 50;
 for i := 0 to dwMsSplit do
 begin
 Sleep(50);
 Application.ProcessMessages;
 end;
end;

响应消息而已Application.ProcessMessages;
[解决办法]
晕，写错了，把Sleep(3000);这行删掉。应该是这样


  begin
  Application.Initialize;
  Form1:=TForm1.Create(Form1);
  Form1.ShowModel;
   
  Application.CreateForm(TForm2, Form2);
  Form1.Hide;
  Form1.Free;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
 end.