Строка как объект StringList

Type
  TStrObj = Class ( tObject )
    Data : String;
  End;

With ListBox1 Do
Begin
  AddObject(Table1.Fields[0].AsString, TStrObject.Create );
  {
  Объект добавляется в конец списка, поэтому для его
  чтения установите индекс равным Count-1
  }
  TStrObj(Objects[Count-1]).Data := Table1.Fields[1].AsString);
End;

{ для удаления элемента с Index I}
With ListBox1 Do
Begin
  Objects[I].Free;
  Delete(I);
End;