Paintbox Buffer

[Dunkelbunt27]

Hallo Delphi Praxis,

ich möchte in meinem Programm zwei Paintboxen benutzen. Auf die eine wird gezeichnet, und auf die andere Wenn die erste fertig ist.
Mein Problem ist, dass ich die Fehlermeldung: "TPaintbox kann nicht zu TPaintbox zugewiesen werden".

Hier der Code im Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Paintbox1         :=TPaintbox.Create(self);      
  Paintbox1.Parent  :=Panel1;                       

  Paintbox2         :=TPaintbox.Create(Self);
  Paintbox2.Parent  :=Panel;

  zeichne;
end;

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
      VK_DOWN : begin
                  verschieben_nach_unten;                //eigentlicher Code unwichtig
                  zeichne;                               // Paintbox1 wird bezeichnet
                  Paintbox2.Assign(Paintbox1);
                end;
      VK_UP   : begin
                  verschieben_nach_oben;                 //eigentlicher Code unwichtig
                  zeichne;                               // Paintbox1 wird bezeichnet
                  Paintbox2.Assign(Paintbox1);
                end;
  end;
end;

Immer wenn er den Inhalt der Paintbox1 auf Paintbox2 per Assign übertragen soll (also bei Pfeiltastenklick) kommt die Fehlermeldung...

Ich hoffe jemand weiß Hilfe.

FG Dunkelbunt