Danke, ich geht das kommende Wo. mal alles durch, schreibe dann hier wieder.
Hier noch etwas, was für Andere nützlich sein könnte,
mit dem im Thread gezeigten Code kann man auch als TIFF abspeichern, indem man das hier ergänzt:
Delphi-Quellcode:
...
else if (AFileExt = '.TIF') or (AFileExt = '.TIFF') then
begin
Result := GetEncoderClsid('image/tiff', pClsid)
end
...