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.