Encontrar el enfoque del componente

[AGAG4]

Lo que ocupo es el nombre del componente en donde actualmente estoy posicionado(tedit ó tdbedit). por ejemplo tengo la siguiente funcion.

procedure LimpiarCampo(Var Reference, Campo:String);
var aux:string;
x:byte;
begin
if campo[1]='t' then begin
for x:=1 to length(campo)-1 do
aux:=campo[x+1];
aux:=campo;
tdbEdit(tForma(Reference).FindChildControl(aux)).clear;
end else
tEdit(tForma(Reference).FindChildControl(aux)).clear;
end;
si viene el NOMBRE con una "t" al inicio entonces ya se que es un tdbEdit y sin la "t" un tedit, por lo tanto, lo que ocupo es el nombre del componente en que tengo el enfoque. Gracias