Delphi-PRAXiS - Delphi MouseDown -> SetFocus

Hallo alle Miteinander

Innerhalb einer Komponente soll auf die Auswahl mit der Maus reagiert werden,
um entsprechend den Focus zu zeichnen. Dazu nutze ich folgenden Code:

Delphi-Quellcode:

			
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

  SetFocus;

  inherited MouseDown(Button, Shift, X, Y);

end;

Nun zu meinem Problem:
Setze ich auf SetFocus eine Breakpoint, läuft alles so wie es soll. Ist der Breakpoint
nicht mehr gesetzt, passiert rein garnichts. Wie läßt sich dieses Verhalten erklären?