Icon wird mit weniger Farben gespeichert als das Original

[Zacherl]

Meine Funktion gibt ein HIcon Handle zurück, welches ich dann dem TIcon zuweise:

Delphi-Quellcode:

ExtIcon := TIcon.Create;
ExtIcon.Handle := IconFromFile('test.exe', 0);

Hier noch die Extrahierfunktion:

Delphi-Quellcode:

function IconFromFile(const Filename: String; IconNr: Word): HICON;
var  buffer: array[0..2*MAX_PATH]of Char;
begin  
  StrPCopy(buffer, Filename);  
  Result := ExtractAssociatedIcon(HInstance, buffer, IconNr);
end;

kann man denn die Farbtiefe manuell einstellen?

Florian