TImage.Picture.Icon Verständisfrage

[Shark99]

Es schmiert leider ab.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var tmpPic: TPicture;
begin
     try
         tmpPic := TPicture.Create;
         tmpPic.LoadFromFile(ExtractFilePath(ParamStr(1))+'testimage.png');
         Image1.Picture.Icon.Assign(tmpPic.Graphic);
     finally
         tmpPic.Free;
     end;
end;

Exception: Cannot assign a TPNGObject to a TIcon.