[Pigmalion]

Доброго времени суток всем.
Подскажите. Есть графическая схема (блоки соединённые линиями,у каждого своё название,присвоенное через массив). Необходимо сохранить схему в порядке выбора блоков в файл.
Если

Код:

 
AssignFile(f,'Схема.txt');
 Rewrite(f);
for i:=1 to 19 do
if Q[i].Pr=true then
Write(f,Q[i].n + ' - ');
CloseFile(f);

то названия сохраняются не в последовательности выбора,а по присвоенным номерам. True - признак что блок выбран.
И как вывести эти же названия на форму при выборе блока?
Т.е. выбираешь, а название в отдельной области на форме, выбираешь следующий, он появляется рядом в виде схемки.