delphi显示gif动画

delphi显示gif动画

uses GIFImg;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'wait.gif');
  TGIFImage(Image1.Picture.Graphic).Animate := True;
end;