[Aristarh Dark]

1.Загрузи файл в TStringList.
2.Удали то что требуется.
3.Запиши с тем же именем на диск.
Как это будет выглядеть в коде:

Код:

function DelSomeLine(aFileName:TFileName;LineIndex:Integer):boolean;
{
  Удаляет строку с номером LineIndex (отсчет с нуля) из
  текстового файла aFileName
}
var
  sl:TStringList;
begin
  Result:=false;
  if FileExists(aFileName) then
    begin
      sl:=TStringList.Create;
      try
        sl.LoadFromFile(aFileName);
        if LineIndex<=sl.Count-1 then
          begin
            sl.Delete(LineIndex);
            sl.SaveToFile(aFileName);
            Result:=true;
          end;
      finally
        sl.Free;
      end;
    end;
end;

пример использования:

Код:

DelSomeLine('C:\text.txt',3);