Realizar varias operaciones con un mismo formulario

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