GIF in TImage

[qb-tim]

Auch wenn ich folgendes schreibe passiert das gleiche...

Delphi-Quellcode:

//Form1 ist schon erstellt worden
//Image1 ist schon erstellt worden und hat die richtige Größe schon

var
  Form1: TForm1;
  Test: TGIFImage;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
 Form1.Height := 231;
 Form1.Width := 165;
 Test := TGifImage.Create;
 Test.Height := 231;
 Test.Width := 165;
 Test.LoadFromFile('C:\gif\pic001.gif');
 Test.Paint(Canvas,Form1.ClientRect,[goDirectDraw]);
 Image1.Picture.Graphic := Test;
 Test.Free;
end;