Удаление строк из текстового файла

var
st: TStringList;
i,n,k: integer; //счетчики (откуда удалять, докуда удалять)
begin
st:=TStringList.Create; //создаем компонент для работы со строками
st.LoadFormFile('mytext.txt'); // загружаем туда строки из файла
i:=StrToInt(Edit1.TExt);
n:=StrToInt(Edit2.TExt);
k:=i; // в n записываем строку, по которую нужно удалять
for i:=StrToInt(Edit1.TExt); to n do st.delete(k); // Удаляем строки
st.SAveTofile(mytext.txt); // сохраняем измененный текст в файл
st.Free; //убиваем компонент, что бы освободить память
end;

var
List, List1: Tstringlist;
i,n,j: Integer;
begin
n:= StrtoInt(Edit1.Text);
List:= TStringList.Create;
List1:= TStringlist.Create;
List.LoadFromFile(ExtractFilePath(Application.ExeName)+'1.txt');
for I := 0 to n-1 do List.Strings[i]:= '';
for i := 0 to List.Count - 1 do
begin
 if List.Strings[i]<> '' then List1.Add(List.Strings[i]);
end;
 
 
List1.SaveToFile(ExtractFilePath(Application.ExeName)+'1.txt');
List.Free;
List1.Free;
end;

var
List, List1: Tstringlist;
i,n,j: Integer;
begin
n:= StrtoInt(Edit1.Text);
List:= TStringList.Create;
List1:= TStringlist.Create;
List.LoadFromFile(ExtractFilePath(Application.ExeName)+'1.txt');
 
for i := n to List.Count - 1 do
begin
  List1.Add(List.Strings[i]);
end;
 
 
List1.SaveToFile(ExtractFilePath(Application.ExeName)+'1.txt');
List.Free;
List1.Free;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Path: string;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then Path:= OpenDialog1.FileName;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
List, List1: Tstringlist;
i,n,j: Integer;
begin
n:= StrtoInt(Edit1.Text);
List:= TStringList.Create;
List1:= TStringlist.Create;
List.LoadFromFile(Path);
for i := n to List.Count - 1 do List1.Add(List.Strings[i]);
List1.SaveToFile(Path);
 
List.Free;
List1.Free;
end;
 
 
 
 
end.