"Warnung" Button vorher Einblenden?

[Yeru]

Hey,

brauch emal etwas eure Hilfe, wie erstelle ich so ein "Warn Button"?

Beispielweise;

User XY drückt auf "Liste leeren" davor soll dann erst ein Fenster kommen mit "Ja - Löschen" oder "Nein - Nicht Löschen (Abbrechen)"

Liste Leeren Button sieht so aus:

begin
  lst1.Clear;
end;

Es ist Delphi

[tnd0]

dialogs (oder nur in delphi XE2 FMX.dialogs bzw. VCL.Dialogs) einbinden.

und dann

if Dialogs.MessageDlg('Welcome to my Delphi application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
  begin
    Dialogs.MessageDlg('Exiting the Delphi application.', mtInformation,
      [mbOk], 0, mbOk);
    Close;
  end;