Strich in 2ten Formular

[svern]

Hab jetzt in Unit1:

Delphi-Quellcode:

    bit := TBitmap.Create;
               bit.Canvas.pen.Color := clRed;
               bit.Width := Form2.Width;
               bit.Height := Form2.Height;
               bit.Canvas.Moveto(Links,Oben);
               bit.Canvas.LineTo(ZL,ZO);
               Form2.Canvas.Draw(0,0,bit);

und in Unit2:

Delphi-Quellcode:

procedure TForm2.FormActivate(Sender: TObject);
begin
PaintBox1.Canvas.Draw(0, 0, bit);
end;

procedure TForm2.FormDeactivate(Sender: TObject);
begin
BitBlt(bit.canvas.handle, 0, 0, Form2.width, Form2.height, Form2.canvas.handle, 0, 0, srccopy);
end;

Naja, kein Strich da...

Habe noch zusätzlich eine Paintbox in Formular 2 gemacht, aber auch das brachte nichts.
Habt ihr noch nen Tipp?