bitmap pf8bit jedes pixel nur mit einem byte speichern

[etom291272]

hat sich erledigt

Delphi-Quellcode:

var
  MeinePalette:HPALETTE;
...
MeinePalette:=Image3.Picture.Bitmap.Palette;

Image4.Picture.Bitmap.Palette:=MeinePalette;
Image4.Picture.Bitmap.Canvas.Pixels[AktZeile,AktSpalte]:=PaletteIndex(Daten[i].Farbe);