der fehler liegt wie erwartet hier:
ItemInfo[i].DateText := PChar(Format('%.2d:%.2d:%.3d', [TempSystemTime.wDay, TempSystemTime.wMonth, TempSystemTime.wYear]));
Grund: Das Ergebnis von Format ist außerhalb der Funktion nicht mehr verfügbar. Das ganze würde dem gleich kommen:
Delphi-Quellcode:
var
abc: String;
begin
[...]
ItemInfo[i].DateText = PChar(abc);
Das Ergebnis liegt also auf dem Stack und nach verlassen der Funktion zeigt zwar der Zeiger noch auf diese Stelle aber sobald etwas neues auf den Stack gepackt wird, wird auch der Wert überschrieben der irgendwann mal dort stand.
Noch besseres Beispiel:
Delphi-Quellcode:
procedure GibZahlAlsString(Zahl: Integer): PChar;
var
meinString: String;
begin
meinString := IntToStr(Zahl);
result = @Zahl[1];
end;