Здравствуйте, ivanzh, Вы писали:

I>Здравствуйте, Alex Dav, Вы писали:

AD>>а какая ошибка?

I>Я думаю, что ошибка в адресации

И все таки, программа не компилируется / не работает / дает не правильный результат ...


Возможно ошибка к том, что в циклах перебора элементов, в качестве итератора используется внешняя переменная.
Поэтому:

    while (first!= NULL) // на входев этот цикл  first всегда будет равен NULL
                {
                        Memo1->Lines->Add(IntToStr(first->a)+' '+(first->ch));
                        first =first->next;
                }