Button Fkus verstecken nach klick?

[Mario]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ActiveControl := NIL;
end;

Könnte auch tun, aber nicht getestet.