San Google me ayudo a encontrar este procedimiento....
Código:
procedure Form1.SpeedButton1Click(Sender: TObject);
var
hOldControl : TWinControl;
begin
hOldControl := ActiveControl;
ActiveControl := nil;
ActiveControl := hOldControl;
// further processing
end;
probando...