Неужели так сложно пользоваться гуглом? 
Код:
procedure DeleteLineFromFile(FileName:string;LineNumber:integer);
var F:TStringList;
begin
F:=TStringList.Create;
F.LoadFromFile(FileName);
F.Delete(LineNumber);
F.SaveToFile(FileName);
F.Free;
end;
нашел за 4 минуты  |