PaintBox in Image

[Ykcim]

Mmmh, das verstehe ich leider nicht...

Ich habe jetzt ein globales Image: TBitMap erstellt.

In der PaintBox spechere ich die Stift-Aktion aus dem MouseMove-Event in dem BitMap:

Delphi-Quellcode:

procedure TForm1.PB_SignatureMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if (ErsterZug) then begin
      ErsterZug := False;
      Image.Canvas.MoveTo(X, Y);
   end;
   if (SollGezeichnetWerden) then
      Image.Canvas.LineTo(X, Y);
end;

Aber wie zeichne ich dann das Ergebnis in die PaintBox und wie soll ich es daraus in das DBImage bekommen?

Delphi-Quellcode:

procedure TForm1.PB_SignaturePaint(Sender: TObject);
var   r: TRect;
begin
   PB_Signature.Canvas.Pen.Color:=clBlack;
   PB_Signature.Canvas.Pen.Width:=2;

   r:=rect(0,0,Image.Width,Image.Height);
   PB_Signature.Canvas.CopyRect(r,Image.Canvas,r);
   PB_Signature.Invalidate;
end;

Wenn ich das so mache, bekomme ich nichts mehr in der PaintBox zu sehen und bekomme auch nichts in das DBImage übertragen...
Vielen Dank
Patrick