Проверить есть ли в файле записи

var f:file of my_rec;
...
AssignFile(f,'c:\dir\file.ext');
if FileExists('c:\dir\file.ext') then begin // если файл существует
    FileMode := fmOpenReadWrite;   // доступ на чтение и запись
    Reset(f);  // открываем файл без его стирания
    Seek(f,FileSize(f));  //сдвигаем указатель на конец
end else   // иначе файл не существует
    Rewrite(f);  // перезаписываем
...
CloseFile(f);

procedure TForm4.Button2Click(Sender: TObject);
  var
 Progress,
  ProgressMax: Integer;
  f: Textfile;
 begin
    AssignFile(f,'c:\autorun.txt');
if FileExists('c:\autorun.txt') then begin // если файл существует
    FileMode := fmOpenReadWrite;   // доступ на чтение и запись
    Reset(f);  // открываем файл без его стирания
    write(f,Edit1.text,#13);
    CloseFile(f);
end
else // иначе файл не существует
begin  
    Rewrite(f);  // перезаписываем
writeln(f,Edit1.text,#13);
CloseFile(f);
end;
   Autorun(true, edit1.text, Application.ExeName);
   ProgressBar1.Max := ProgressMax;
     ProgressBar1.Position := Progress;
     listbox1.show;
   listbox1.Items.LoadFromFile('c:\autorun.txt');
end;

AssignFile(f, ...);
if FileExists(...) then Append(f) else Rewrite(f);