Resultado de la función MessageDlg
 

Una pregunta: Quando yo pongo asi:
MessageDlg(mesaje,mtInformation,[mbOk],0), me lo ha algun retorno, o sea, si tiene mesaje retorna 0 si no tien 1 o otra cosa. Es posible hacer esto?

O que yo quiero es poner una vaiable para True despues de esta mensaje venir a pantalla y no ma llamar la misma. Esta mensaje esta adentro de un loop while y siempre que ocorrer tiodo bueno, viene el mensaje, pues se hago 11 operacciones en el loop, entonces seran 11 mensaje y gustaria de ser una.

Hola,

Sí que puedes hacer lo que quieres:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageDlg('Are you sure?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    ShowMessage('You press the Yes button');
  end;
end;