TColor gibt mir keine 256 Farben

[uligerhardt]

Sogar mehrere Klugscheiß-Ratschläge:

• Canvas.Pixels ist langsam. Wenn es scheall sein soll, schau dir mal ScanLine an.
• Das "goto nextPixel" ist überflüssig. Dreh einfach die if-Bedingung, dann kannst du das if normal verwenden:
  
  Delphi-Quellcode:

          if (red <> 0) or (green <> 0) or (blue <> 0) then // schwarz nicht in Palette
            for i:=0 to 255 do begin
              if (red=r[i]) and (green=g[i]) and (blue=b[i]) then Bild[breit,hoch]:=i; // gefunden
            end;