Cómo prescindir del "casting" de tipos

[Luis_264]

function tform1.obja(cep:string):tobject;
begin
obja:=tobject(findcomponent(cep));

end;

pero lo que quiero es que la salida de la funcion sea de diferentes tipos por ejemplo


topendialog.create(self).name:='xx'; ó
tedit.create(self).name:='xx';

que se pueda hacer esto --->obja('xx').filename
o estoo obja('xx').text

y no esto (obja('xx') as topendialog).filename ó
(obja('xx') as tedit).text


si me podiran ayudarr porfaaaa!!! como le muevo a la funcion para que haga eso de salidas de difrenetes tiposs