Código Delphi [-] if TEdit(Sender).Focused then begin {...} end;
if TEdit(Sender).Focused then begin {...} end;