Code:
MsgDlgResult := -1;
FMX.Dialogs.MessageDlg(Msg, DlgType, Buttons, HelpCtx,
procedure(const AResult: TModalResult)
begin
MsgDlgResult:= AResult;
end
);
while MsgDlgResult<0 do Delay(10);
Result := MsgDlgResult;
Wobei es egal ist, ob ich eine "echte" Callback Prozedur verwende oder diese gefakte.