Ayuda para mostrar un mensaje

[roman]

Empezado por jose001

y en los botones esto me digan "Todo,Solo puesto,Cancelar" y segun el boton que clikee realizar alguna accion

Pues mira, podrías crear tu propio cuadro de diálogo con un formulario y los botones exactos que deseas. O bien, usar este código para salir al paso:

Código Delphi [-]
var
  Dialog: TForm;

begin
  Dialog := CreateMessageDialog(
    '¿Desea eliminar todo el registro de este cliente o solo su puesto de trabajo?',
    mtWarning,
    [mbYes, mbNo, mbCancel]);

  TButton(Dialog.Controls[2]).Caption := 'Todo';
  TButton(Dialog.Controls[3]).Caption := 'Sólo puesto';
  TButton(Dialog.Controls[4]).Caption := 'Cancelar';

  try
    case Dialog.ShowModal of
      mrYes: ShowMessage('Escogió todo');
      mrNo: ShowMessage('Escogió sólo puesto');
      mrCancel: ShowMessage('Escogió cancelar');
    end;
  finally
    Dialog.Free;
  end;
end;

LineComment Saludos