program  Project6;

 {$APPTYPE CONSOLE} 

 uses 
  IniFiles, SysUtils;
 var 
  N: TDateTime;
  H: THashedStringList;
  I: integer;

 begin 
  N := Now;
  H := THashedStringList.Create;
   try 
     for  I :=  0   to   500000   do 
      H.Add(
        '1234567890' +
        '1234567890' +
        '1234567890' +
        '1234567890' +
        '1234567890' +
        '1234567890' +
        '1234567890' +
        '1234567890' +
        '1234567890' +
        '1234567890' + IntToStr(I) + '=test'
      );
      H.Add('test=12345');  // Force Hash Rebuild 
      I := StrToInt(H.Values['test']);
   finally 
    H.Free;
   end ;


  N := N - Now;
  Writeln('Test:', I, ' Elapsed: ', TimeToStr(N));
  ReadLn;

 end .

dcc32: Borland Delphi Version  15 . 0 
result: Test: 12345  Elapsed:  0 : 00 : 04 

dcc32: CodeGear Delphi  for  Win32 compiler version  18 . 5    
result: Test: 12345  Elapsed:  0 : 00 : 03 

     for  I :=  0   to   4000   do 
     begin 
      A := S + IntToStr(I) + '=test';
       if  H.IndexOf(A) = - 1   then  H.Add( A );
     end ;

 program  Project6;

 {$APPTYPE CONSOLE} 

 uses 
  IniFiles, SysUtils;
 var 
  A, S:  String ;
  N: TDateTime;
  H: TStringHash;
  I: integer;

 begin 
   try 
    N := Now;
    H := TStringHash.Create( 4096 );
     try 
      S := '1234567890' +
           '1234567890' +
           '1234567890' +
           '1234567890' +
           '1234567890' +
           '1234567890' +
           '1234567890' +
           '1234567890' +
           '1234567890' +
           '1234567890';

       for  I :=  0   to   500000   do 
       begin 
        A := S + IntToStr(I);
         if  H.ValueOf(A) = - 1   then  H.Add(A, i);
       end ;
      H.Add('test',  5001 );
      I := H.ValueOf('test');
     finally 
      H.Free;
     end ;

    N := N - Now;
    Writeln('Test:', I , ' Elapsed: ', TimeToStr(N));
    ReadLn;
   except 
    on E: Exception  do   begin  writeln(E.message);
    readln;  end ;
   end ;

 end .

Test: 5001  Elapsed:  0 : 00 : 04