Porque se perderá el Enfoque al Limpiar Edit????

[AGAG4]

Porque se perderá el Enfoque al Limpiar Edit????

Por ejemplo:
Hago la prueba con un Edit y al presionar F10 mando a llamar la siguiente instruccion para limpiar el Edit:

Código Delphi [-]
LimpiaCampo(ActiveControl)
 
{Cuerpo del Procedimiento}
procedure LimpiaCampo(Control:tWinControl);
begin
  if Control is TEdit then
    tEdit(Control).clear
  else if Control is TDBEdit then
    tdbEdit(Control).Clear
  else if Control is TMaskEdit then
    tMaskEdit(Control).Clear
end;

Al Limpiarme el Edit el enfoque se pierde y tengo que presionar 2 veces cualquier tecla para que vuelva tener el enfoque, hice la prueba sin el procedimiento solo mando llamar Edit1.clear y me sucede lo mismo.

Agradezco cualquier sugerencia.