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