Аналог структуры TTimeZoneInformation для Linux

function GetTimeZoneBias: Integer;
// uses windows unit, func GetTimeZoneInformation
// contributor: Stefan Glienke
var
  TimeZoneInfo: TTimeZoneInformation;
begin
  case GetTimeZoneInformation(TimeZoneInfo) of
    TIME_ZONE_ID_UNKNOWN: Result := TimeZoneInfo.Bias;
    TIME_ZONE_ID_STANDARD: Result := TimeZoneInfo.Bias + TimeZoneInfo.StandardBias;
    TIME_ZONE_ID_DAYLIGHT: Result := TimeZoneInfo.Bias + TimeZoneInfo.DaylightBias;
  else
    Result := 0;
  end;
end;

function GetTimeZoneBias: Integer;
{IFDEF MSWINDOWS}
// uses windows unit, func GetTimeZoneInformation
// contributor: Stefan Glienke
var
  TimeZoneInfo: TTimeZoneInformation;
begin
  case GetTimeZoneInformation(TimeZoneInfo) of
    TIME_ZONE_ID_UNKNOWN: Result := TimeZoneInfo.Bias;
    TIME_ZONE_ID_STANDARD: Result := TimeZoneInfo.Bias + TimeZoneInfo.StandardBias;
    TIME_ZONE_ID_DAYLIGHT: Result := TimeZoneInfo.Bias + TimeZoneInfo.DaylightBias;
  else
    Result := 0;
  end;
end;
{$ELSE}
begin
  Result := GetLocalTimeOffset;
end;
{$ENDIF}

sel.OnNotify := OnChangeSelected;  
 
procedure OnChangeSelected(Sender: TObject; {$IFDEF FPC}constref{$ELSE}const{$ENDIF} Item:Pointer; Action: TCollectionNotification);

function TBaseNode.FindByGUID( const guid:TGUID ):TBaseNode;
  var p:TBaseNode;
       i:integer;
begin
  p := Parent;
  while p <> nil do
  begin
    for i:=0 to p.Count-1 do
      if p.Items[i].GUID = guid then // Error: Operator is not overloaded: "TGuid" = "TGuid"
        exit( p.Items[i] );
    p := p.Parent;
  end;
  Result := nil;
end;

// в Delphi в модуле System.Generics.Collections
TCollectionNotifyEvent<T> = procedure(Sender: TObject; const Item: T;
    Action: TCollectionNotification) of object;
// в Lazarus в модуле Generics.Collections
TCollectionNotifyEvent<T> = procedure(ASender: TObject; constref AItem: T; AAction: TCollectionNotification)
    of object;