[[coso]]

Código Delphi [-]
var
   ob : TObject;
   ft : TFont;
begin
   ob := FindComponent(nombre_del_objeto);  // p.e. : nombre_del_objeto := 'Edit1'
   if ob = nil then begin ShowMessage('No existe ese objeto'); exit; end;

   ft := (GetObjectProp(ob,'Font') as TFont); //GetObjectProp recoge las propiedades que son un objeto, como en este caso, la fuente
   SetOrdProp(ft,'size',18); // cambiamos ahora el size del objeto que es propiedad del Edit1, su Font
end;