Открыть созданный файл Опции

[camac]

Бодрого дня, господа.
Подскажите, пожалуйста. Я никак не найду решения своей задачки.
Суть:
я создаю файл таким вот образом:

var nameFile,ccc : string;
     myFile : text;
begin
   gotoxy(3,3);
   write('Введите название файла: ');
   otoxy(58,3);
   write('______');
   gotoxy(59,3);
   readln(nameFile);
   nameBasa:=nameFile+'.dat';
   gotoxy(3,6);
   write('Вы создали файл: ');
   textcolor(14);
   write(nameFile);
   assign (myFile,nameFile);
   rewrite(myFile);
   readkey;
end.

Как мне теперь его открыть. При условии, что я не знаю, как он называется. Но его имя, по идее, есть в переменной myFile.
Делаю так:

   reset(myBasa);
   while not eof(myFile) do
      begin
          readln(myFile,ccc);
          writeln(ccc);
      end;

, но не работает.
Подскажите - как правильно сделать?

[Федосеев Павел]

Спасибо.

Как понимаю, применение file и TStream на уровне приверженности к ООП.

Для работы с текстом мне больше понравилось использовать TStringList, чем Text. Но использовал для небольших файлов (менее 1 МиБайт). Понравилось удобство доступа к каждой строке.