eso te da el nombre del form pero....no creo q te funcione. Deberas crear la funcion sobre un parametro de la clase que tu quieres que sea....(la que tenga los dbedits, etc...)
Código Delphi
[-]
procedure Tfmantenimiento.PonerCod(fform : TfMiTipoForm);
...
of bien usar el ...as... dentro del codigo
Código Delphi
[-]
procedure Tfmantenimiento.PonerCod(fform : TForm);
begin
try
(fform as TfMiTipoForm).DbEdit.Text = '0' then
...
except
ShowMessage('Error ' + fform.name + ' no es un formulario tipo TfMiTipoForm');
end;
end;