Umstellung von Delphi 7 auf 2010

[menten]

Hallo zusammen,

ich bin einen Schritt weiter.

<--

Delphi-Quellcode:

function SMMessageDlg(const sText, cText: AnsiString; aType: Cardinal): Word;
var
   pText, pCaption: PWideChar;
begin

  try
    GetMem(pText, Length(sText)+1);
    GetMem(pCaption, Length(cText)+1);
    StrPCopy(pText, sText);
    StrPCopy(pCaption, cText);

    result := MessageBox(0, pText, pCaption, aType);

  finally
    FreeMem(pText, Length(sText)+1);
    FreeMem(pCaption, Length(cText)+1);
  end;
end;

-->

Diese Funktion habe ich mir vor Jahren mal geschrieben um das Problem zu umgehen, dass die Standard-Dialoge von Delphi die Benutzeroberfläche von XP und Nachfolgern nicht unterstützte und die Buttons dann aussahen wie unter W9x.

Ich habe die Funktion zwar angepasst (PWideChar und AnsiString), aber offensichtlich kommt der Fehler immer noch dadurch zustande. Kurrioserweise funktioniert die Funktion, die Fehler kommen erst hinterher.

Any Idea?

Gruß
Stefan