[DELPHI] Cancellare una riga di un file

[Whitecrowsrain]

Salve,
ho questa procedura per leggere un file e confrontare la linea letta con una stringa e nel caso fossero uguali cancellare la suddetta riga dal file.

VAR
  F:TextFile;
  nomeFile,bcFile,bc:string;

BEGIN
  bc:='BARCODE';
  assignFile(F,nomeFile);
  reset(F);
  while not eof(F) do
  begin
    Readln(F,bcFile);
    if copy(bcFile,1,13)=bc then
    begin
      WriteLn(F,'');
    end;
  end;
  closeFile(F);
END;

solo che quando va ad eseguire la Writeln mi da "error I/O", si blocca il ciclo e non cancella la riga!

come dovrei fare per risolvere il problema?