Wie kann ich in guter Qualität 24Bit zu 8Bit konvertieren ?

[Capa]

da das ganze eine funktion ist solltest du es vielleicht so aufrufen

Function BMPReduceTo8Bit(BitmapXXBit: TBitmap): TBitmap;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('24BitBild.bmp');
  Image1.Picture.Bitmap := BMPReduceTo8Bit(image1.Picture.Bitmap);
  Image1.Picture.Bitmap.SaveToFile('8BitBild.bmp'); 
end;

Kannst auch ein 2tes Image erstellen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Image2: TImage;
begin
  Image2 := TImage.Create;
  Image1.Picture.LoadFromFile('24BitBild.bmp');
  Image2.Picture.Bitmap := BMPReduceTo8Bit(image1.Picture.Bitmap);
  Image2.Picture.Bitmap.SaveToFile('8BitBild.bmp'); 
end;