Как исправить ошибку I/O error32

[Damik]

Как исправить ошибку I/O error32? Вот код:

procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(Output,'lr.txt');
Rewrite(Output);
end;

[Lardes]

procedure WriteTextToFile(AFileName, AText: string);
var
  TFile: TextFile;
begin
  AFileName := ExtractFilePath(ParamStr(0)) + AFileName;
  AssignFile(TFile, AFileName);
  if FileExists(AFileName) then Append(TFile)
  else
  begin
    ReWrite(TFile);
  end;
  WriteLn(TFile, AText);
  CloseFile(TFile);
end;

Применять:

WriteTextToFile('file.txt', 'Текст');