这一段编译不过去: {$IFDEF WIN32} if (Freq = 0) then begin QueryPerformanceFrequency(CurTime); { determine timer frequency } {$IFDEF DELPHI4} if (Curtime shr 32 > 0) then Freq := 1 { timer is too fast } else Freq := CurTime and $FFFFFFFF; { ticks per second } {$ELSE} if (Curtime.HighPart > 0) then Freq := 1 { timer is too fast } else Freq := CurTime.LowPart; { ticks per second } {$ENDIF} end; 提示: e2018 record,object or class type required