Komponente per Canvas kopieren/neu zeichnen

[Oldy]

Hi Leute
ich möchte eine Komponente (auch an eine andere Position) neu zeichnen.

Ich dachte mir, dass es evtl so geht:

Delphi-Quellcode:

VAR
  x,y,
    pixel: integer;
BEGIN
  FOR x := 0 TO 65 DO BEGIN // 65 = Testbuttonbreite
      FOR y := 0 TO 25 DO BEGIN // 25 = Testbuttonhöhe
           pixel:=canvas.Pixels[x,y];
           canvas.Pixels[x+160,y]:=pixel;
        END;
    END;

geht aber leider nicht, es kommt nur eine Schwarze Fläche in Größe des Buttons.
Wo liegt der fehler?
Oder bin ich komplett auf dem Falschen Fuß?