Deplhi 7 робота з файлом, якщо файл є то дописати в нього дані, якщо ні...

[Bomjarik]

Deplhi 7 робота з файлом.
Якщо файл є то дописати в нього дані, якщо ні то свторити цей файл.
Я в делфі тіки тиждень, дай взагалі в програмуванні, перед цим тіки паскаль в коледжі.
Змінні: f: TextFile; fName: String[80] з ними не виходить ніяк.

if <??> then begin
   fName:=U_Settings.Edit1.Text;
   AssignFile(f, fName);
   if ball>=10 then begin
   Append(f); 
   writeln(f,'[ ',ball,' ] - ',name1);
   CloseFile(f);
   end
   else begin
   Append(f); 
   writeln(f,'[ ',ball,'  ] - ',name1);
   CloseFile(f);
   end;

else begin

   fName:=U_Settings.Edit1.Text;
   AssignFile(f, fName);
   if ball>=10 then begin
   Rewiter(f); 
   writeln(f,'[ ',ball,' ] - ',name1);
   CloseFile(f);
 
end
end;

[Bomjarik]

Так з цим я уже сам розібрався, на свіжу голову сьоня.
Кому мо тре буде хоча наврядче. код.
Потрібно було поставити відкритяя файлу в такі тегі "{$I-}" чи як воно іменуєтья ХЗ і в циклі прописать "IOResult = 0" .

  fName:=U_Settings.Edit1.Text;
  AssignFile(f, fName);
  {$I-}
  Reset(f);
  {$I+}
if IOResult = 0 then begin
 Append(f);
 writeln(f,'[ ',ball,' ] - ',name1);
 CloseFile(f);
 end
else begin
 if ball>=10 then begin
 Rewrite(f);
 writeln(f,'Оцінка   Прізвище Ім''я');
 writeln(f,'[ ',ball,' ] - ',name1);
 CloseFile(f);
 end
end;