obtener el nombre del formulario

[[coso]]

Código Delphi [-]
fform.name;

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;