[MAC] MessageDlg führt zu "Out of Memory"

[Darlo]

Hi,

ja es passiert nur unter OS X. Die Windows-Version läuft super stabil.

Hatte nur mal probiert die MessageDlg über das Hauptformular aufzurufen:

Delphi-Quellcode:

function TfrmMain.myMessageDlg(msg: String; msgType: TMsgDlgType;  msgBtn: TMsgDlgButtons; msgInt: Integer): boolean;
begin
  MessageDlg(msg,msgType,msgBtn,msgInt);
end;

Ursprünglich wurde die MessageDlg direkt aufgerufen

Delphi-Quellcode:

    if dsListe.Count = 0 then
      begin
        result := false;
        MessageDlg('Unter dem Suchbegriff '+suchwort+' wurde kein Nachname gefunden.', TMsgDlgType.mtError, mbOKCancel,0);
        exit;
      end

Sobald die MessageDlg aufgeht läuft der Arbeitsspeicher voll, pro Sekunde ca. +400 MB bis das Programm geschlossen wird.