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;