TStringItem = record
  FString: string;
  FObject: TObject;
end;

struct TStringItem {
  AnsiString FString;
  TObject * FObject;
};