[Crack502]

procedure TForm1.Button1Click(Sender: TObject);
begin
If FileExists('1.txt') then
begin
ShowMessage('Файл существует');
AssignFile(f, '1.txt');
write(f);
text:=Edit1.Text;
writeLn(f, text);
CloseFile(f); end else
CloseFile(f);
end;

writeLn(f, text); - здесь пишет ошибку.
Что я делаю не так?