Eine MsgBox die "Ok" als Button hat und einen beliebigen Text:
Delphi-Quellcode:
procedure ShowBox;
var
MsgType: Integer;
begin
case RadioGroup1.ItemIndex of
0: MsgType := mtInformation;
1: MsgType := mtConfirmation;
2: MsgType := mtWarning;
3: MsgType := mtError;
end;
MessageDlg(Edit1.Text,MsgType,[mbOk],0);
end;
Anstatt [mbOk] kannst du auch andere Buttons verwenden, da musst du aber noch in der Hilfe nachschauen, ich bin zu faul. Die Funktion gib dir als Rückgabewert den Button zurück, auf den der User geklickt hat (z.b. mrOk, mrYes, mrNo)