Realizar varias operaciones con un mismo formulario

[webmasterplc]

Hola estoy desarrollando un sistema y me gustaría usar un formulario para registrar, editar y eliminar registros, para evitar cargar el sistema de form, ya lo estoy haciendo de la manera mas artesanal que se me ocurrio y quisiera su opinión si es la manera mas optima o si hay alguna otra manera.

en la unidad del Form cree una variable tipo string llamada rol.

Código Delphi [-]
Var
rol:string;

y en la unidad principal le paso el valor en el evento clic del menu

Registrar:

Código Delphi [-]
With formconsolidadores do
      Begin
      Caption:='Registrar Líderes';
      rol:='Registro';
      ShowModal;
      end;

Modificar:

Código Delphi [-]
With formconsolidadores do
      Begin
      Caption:='Registrar Líderes';
      rol:='Editar';
      ShowModal;
      end;

Eliminar:

Código Delphi [-]
With formconsolidadores do
      Begin
      Caption:='Registrar Líderes';
      rol:='Eliminar';
      ShowModal;
      end;

En El Evento del Formulario
Procesar:

Código Delphi [-]
begin
if rol='Registro'  then
  begin
  MessageDlg(rol, mtCustom, [mbOK], 0);

  end
        else
        if rol='Editar'  then
        begin
        MessageDlg(rol, mtCustom, [mbOK], 0);
        end
        else

if rol='Eliminar'  then
  begin
 MessageDlg(rol, mtCustom, [mbOK], 0);
  end;

  end;

Hasta ahora no me da error solo quisiera saber si es la manera mas optima y ademas de ser asi puede servirle a alguien que necesite esto. Saludos.

[ozsWizzard]

Así, de primeras, se me ocurre cambiar el tipo de Rol de un string a un tipo

En la misma unit dle formulario, justo antes de declarar el formulario

TRol = (rRegistro, rEditar, rEliminar)

De es manera se cambia

Var
   Rol: TRol;

Registrar:

With formconsolidadores do
      Begin
      Caption:='Registrar Líderes';
      rol:= rRegistro;
      ShowModal;
      end;

Modificar:

With formconsolidadores do
      Begin
      Caption:='Registrar Líderes';
      rol:= rEditar;
      ShowModal;
      end;

Eliminar:

With formconsolidadores do
      Begin
      Caption:='Registrar Líderes';
      rol := rEliminar;
      ShowModal;
      end;

Procesar:

begin
   case rol of
      rRegistro: AccionRegistrar;
      rEditar:   AccionEditar;
      rEliminar: AccionEliminar;
   end;
end;

(Entiendo que los MessageDlg eran para probar que funciona, por tanto me permito ser algo más explícito, en caso que realmente se debiera hacer el MessageDlg...)

var
   lRol: String;
begin
   case rol of
      rRegistro: lRol := 'Registrar';
      rEditar:   lRol := 'Editar';
      rEliminar: lRol := 'Eliminar';
   end;
   MessageDlg(lRol, mtCustom, [mbOK], 0);
end;

(Que por cierto, en tú código hubiese bastado con

begin
   MessageDlg(Rol, mtCustom, [mbOK], 0);
end;

[webmasterplc]

Listo voy a probar este método una consulta y las diferentes operaciones donde las hago, osea la de guardar o editar