obtener el nombre del formulario

[sargento elias]

Buenos días estoy haciendo una plantilla y he creado un procedimiento para esa plantilla, pero necesito obtener el nombre del formulario de cada pantalla asociada a la plantilla para pasárselo como parámetro. Ejemplo:

procedure Tfmantenimiento.PonerCod(fform : Tform);
begin

    if Trim(fform.dbedit1.Text) = '0' then begin
        fform.dbedit1.SetFocus;
        fform.dbedit1.Text  := '';
        Exit;
    end;
end;

Gracias.

[[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;

[sargento elias]

Muchas gracias, he tenido que usar tu segunda opción y funciona perfectamente, gracias.