Hallo.
Wenn du auf einer PaintBox arbeitest (dann wird der Inhalt beim Verdecken des Forms nicht gelöscht):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
// Lösche alles in der PaintBox
paintbox1.Canvas.FillRect(paintbox1.Canvas.ClipRect);
end;
Und die Linien zeichnest du ja mit MoveTo (Stift bei x/y ansetzen) und LineTo (Stift zu x/y zeichnend ziehen).
Gruß
blackdrake