a = FileRead (c1)'читаем первую строку
If a<>EOF Then ListBox1.Add(a)'если неконец 'добавить строку Do Until a = EOF 'цикл до конца файла a = FileRead (c1) If a<>EOF Then ListBox1.Add(a) Loop
FileClose (c1) 'закрываем файл