Работа с тхт файлами Delphi

procedure TForm3.FormShow(Sender: TObject);
var rezyltat:TextFile;
begin
Label1.Caption:= 'Количество баллов: ' + Form2.Label2.Caption;
Label2.Caption:= 'Ваша оценка: ' + Form2.Label4.Caption;
Label3.Caption:= 'Тест прошел студент: ' + #13 + Form1.Edit1.Text + ' ' + Form1.Edit2.Text;
Label4.Caption:= 'Время прохождения: ' + Form2.Label7.Caption + 'мин.' + ' ' + Form2.Label8.Caption + 'сек.';
 
AssignFile(rezyltat, 'c:\rezyltat.txt');
Rewrite(rezyltat);
writeln(rezyltat, Label1.caption,' ');
writeln(rezyltat, Label2.caption,' ');
writeln(rezyltat, Label3.caption,' ');
writeln(rezyltat, Label4.caption,' ');
writeln(rezyltat, #10);
CloseFile(rezyltat);
end;

const
  Fn = 'rezyltat.txt';
var
  F : TextFile;
  FileName : String;
...
begin
  //Формируем полное имя файла таким образом, чтобы он оказался в той же папке, где
  //расположен исполняемый файл программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  
  AssignFile(F, FileName);
  //Если файл уже существует, значит открываем его. Иначе - создаём файл.
  if FileExists(FileName) then
    Reset(F)
  else
    Rewrite(F)
  ;
...
  //В конце работы закрываем файл.
  CloseFile(F);
end;