[fpc-pascal]TStringList index

[Taj Morton]

Hi all,
This code has been driving me nuts for the past week.
      IDs:=TStringList.Create;
      for i:=0 to Datab.List_Field.Count-1 do
      begin
	 Tmp:=TStringList(Datab.List_Field.items[i]);
	 IDs.Strings[i]:=Tmp.Strings[0];
	 Tmp.Free;
      end;

It crashes with 
An unhandled exception occurred at 0x08062FE5 :
ESTRINGLISTERROR : List index exceeds bounds (0)
  0x08062FE5

Datab.List_Field.Count-1=18. It appears that IDs is not letting me write to 
item i. Any ideas?
Thanks, Taj