THashItem = record
  Next: PHashItem;
  Key: string;
  Value: Integer;
end;

struct THashItem {
  PHashItem Next;
  AnsiString Key;
  int Value;
};