Delphi-Quellcode:
procedure GetIco(ImL: TImageList; Im: Timage; i: integer);
var
ico: TIcon;
begin
ico := TIcon.Create;
Try
if ImL.GetIcon(i, ico) then
Im.Picture.Icon.Assign(ico);
finally
ico.Free;
end;
den fehler bekomme ich hierbei, ich hatte es auch schon mit " if ImL.GetIcon(i, ico) = true then" versucht aber geht auch nicht, was ist nun wieder verkehrt?