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.