Aquí tienes un ejemplo:
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
Eleve:string;
begin
eleve:='¿Seguro que desea pasar el alumno histórico?';
Application.MessageBox(Pchar(Eleve),'Atención',mb_OkCancel + mb_IconQuestion);
end;
Un Saludo.