Перенести элементы в memo

rakomakafo

Ефрейтор
Сообщения
9
Реакции
0
Помогите перенести элементы в мемо в очередности, которую задает пользователь. Есть Listbox, в котором просто отображаются элементы, которые мы вводим и есть мемо, в которое должны переноситься элементы с листбокса только в правильной очередености. Это двусвязный список и в data хранится информация про предыдущий и следующий элемент.
Я думала как-то так записать, но выдает ошибку:

Код:
procedure TForm1.Button10Click(Sender: TObject);
var
L: dlistVar;
p : pdlistEl;
begin
p:=L.head;
memo1.lines.add(listbox1.items[p.data])
 
end;