Prozedur (mit Parametern) an eine Funktion übergeben

[omiT]

Hi.

Ich habe ein Programm geschrieben, in dem man des öfteren Buttons eines MessageDlg's klicken muss. Drückt man dort auf Cancel, so wird wird in einem neuem MessageDlg abgefragt, ob der Vorgang wirklich abgebrochen werden soll. Das sieht dann z.B. wie folgt aus:

Delphi-Quellcode:

      if MessageDlg('Willst du die Raterunde wirklich abbrechen?', mtCustom, mbYesNoCancel, 0) = mrYes then
      begin
        mmAusgabe.Lines.Add('Raterunde abgebrochen.');
        exit;
      end else
      begin
        fragesitzung(baum);  <--
        exit;
      end;

Nun das eigentliche Problem: Ich würde die Abfrage gerne in einer function auslagern. An diese function sollte aber auch die procedure übergeben werden können, die oben in der markierten zeile steht, aus dem Grund, da es bei jeder Abfrage eine andere, oder zumindest mit verschiedenen Parametern ist.

Nun - ist dies möglich, und wenn ja, wie?

Schonmal danke - Timo.