string und PChar in Application.MessageBox

[Nisbo]

Hallo,

ich habe folgenden Code (Ausschnitt)

Delphi-Quellcode:

var
  erstelltD, erstelltT : string;
  text1, text2 : pchar;
  neueinlesen : Integer;
....

if FileExists('datei.txt') then begin
   erstelltD := DateToStr(FileDateToDateTime(FileAge('datei.txt')));
   erstelltT := TimeToStr(FileDateToDateTime(FileAge('datei.txt')));
   text1 := 'Die Liste wurde bereits am '
              + PChar(erstelltD)
              + ' um '
              + PChar(erstelltT)
              + ' Uhr vom Server geladen. Möchten Sie die Liste vom Server neu einlesen ?';

   text2 := 'Daten neu einlesen ?';

   if Application.MessageBox(text1, text2, MB_YESNO + MB_DEFBUTTON2) <> IDYES then
      begin
         neueinlesen := 0;
      end;
end;

und prüfe ob es eine datei schon gibt, wenn es diese datei gibt dann soll die info ausgegeben werden mit Datum und Zeit wann die Datei erstellt wurde.

das ganze hat auch vorher in anderer Version mittels ShowMessage funktioniert, aber da ShowMessage in Threads nicht geht muß ich ja eine MessageBox nehmen und dort bekomme ich einfach nicht Datum und Zeit angezeigt, sonmdern immer den Fehler:

[Fehler] Unit1.pas(242): Inkompatible Typen: 'String' und 'PChar'

MessageBox braucht ja PChar

Hat einer ne Idee wie ich das Problem lösen kann ?