Delph7 und 7Zip.dll Fehler beim Dateidatum auslesen

[Lemmy]

Tach,

habe das jetzt in Delphi 7 so hin bekommen:

Delphi-Quellcode:

function TPP7Zip.GetItemLastAccess(AIndex: Cardinal): TDateTime;
var  LastAcc: PROPVARIANT;
  varOle: OleVariant;
  dtResult: TDateTime;
begin
  if Assigned(FInArchiv) then
  begin
    FInArchiv.InArchive.GetProperty(AIndex, kpidLastWriteTime,varOle);
      LastAcc := PROPVARIANT(VarOle);
      {$IFDEF VER150}
      TVarData(VarOle).VType := varEmpty;
      {$ENDIF}
      result := FileTimeToDateTime(LastAcc.filetime);