Errors in Time.pass

[natugle]

When compiling with Lazarus 1.6.4 and Fpc 3.0.2 the program reports wrong time settings.
The fix is to change the calls it two functions. The correct code shuld look like this:

Function DateTime2UnivDateTime(d:TDateTime):TDateTime;
{$IFDEF FPC}
begin
//  Result := UniversalTimeToLocal(d);
  Result := LocalTimeToUniversal(d);
end;
{$ELSE}

-----------
Function UnivDateTime2LocalDateTime(d:TDateTime):TDateTime;
{$IFDEF FPC}
begin
  Result := UniversalTimeToLocal(d);
//  Result := LocalTimeToUniversal(d);
end;
{$ELSE}