Du könntest alle Pixel in zwei verschachtelten For Schleifen durchgehen und dabei die Farben in ein Array eintragen.
Delphi-Quellcode:
For x := 0 to Rect.Width -1 do
For y := 0 to Rect.Height -1 do
begin
...
end;
Sollte eigentlich gehen.
Man liest sich, Stanlay