[delphi] Problem z pikselami

Jak moge odczytać pixel z bitmapy załadowanej do Image i później z powrotem go przenieść do drugiego Image? . Chce zrobić takie obracanie bitmapy, pixel po pixelu :?

Poprawnie: Jak obrócić bitmapę o dowolny kąt
W czasie remontu 4P: http://4programmers.net/coyote-0-93/Delphi/FAQ/Grafika/Jak_obr%C3%B3ci%C4%87_bitmap%C4%99_o_dowolny_k%C4%85t

Witam. Komponent Image ma własność Canvas, Która z kolei ma własność Pixels. Pozwala to na zapis/odczyt pojedynczych pixeli z bitmapy i wrzycenie ich gdziekolwiek.

var P :TColor;

//Odczyt;
P  :=  Image1.Canvas.Pixels[x,y];
//Zapis
Image1.Canvas.Pixels[x,y]  := $000000;

tak, tylko ze Pixels[] dziala straaaaaaaasznie wolno.
powinno sie uzywac raczej ScanLine.