Malen mit Delphi und die Darstellung

[shmia]

Versuch mal Pen.Mode := pmXor.
Im Event OnMouseMove musst das vorige (dass du dir gemerkt hast) Rechteck zeichen damit es verschwindet
und das neue Rechteck zeichnen.
2-Mal ein Rechteck mit XOR gezeichnet ergibt wieder das Ausgangsbild

Dazu muss auch geprüft werden, ob die linke Maustaste gedrückt ist:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ssLeft in Shift then { make sure button is down }
  begin ....

Schau dir dazu auch in der OH das Thema OnMouseMove, Example an.