Fehlermeldungs Generator

[ProfessorBass]

Hallo
wieso sagt der wen ich Compiliere:
Inkompatible typen: TMsgDlgBtn und Set
was mache ich falsch?
was Mus ich ändern?
hoffe auf freundliche Hilfe.

procedure TForm1.Label131Click(Sender: TObject);
var
  DlgType: TMsgDlgType;
  DlgBtn: TMsgDlgBtn;
begin
// if Fehler = Error Then DlgType := mtError
// else if Information = 'Info' Then DlgType := mtInformation
// else if Warnung = 'Warn' Then DlgType := mtWarning
// else if Frage = 'Confirmation' Then DlgType := mtConfirmation
// else if Ohne = 'Custom' Then DlgType := mtCustom;

if RadioButton1.Checked = True Then DlgBtn := mbOK
else if RadioButton2.Checked = True Then DlgBtn := mbAbortRetryIgnore
else if RadioButton3.Checked = True Then DlgBtn := mbOkCancel
else if RadioButton4.Checked = True Then DlgBtn := mbRetry
else if RadioButton5.Checked = True Then DlgBtn := mbYesNo
else if RadioButton6.Checked = True Then DlgBtn := mbYesNoCancel;


MessageDlg(Edit1.Text, Edit2.Text, DlgType, [DlgBtn], 0);
end;