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

Автор: Robert Wittig

Вы можете создать простой объект, инкапсулирующий строку:

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;