Поиск строки в файле и ее удаление

var
  List: TStringList;
  i: integer;
begin
  try
    List:=TStringList.Create;
    List.LoadFromFile('edit.txt');    
  except
    ShowMessage('Какая-то ошибка :)!');
  end;
  for i:=0 to List.Count-1 do
    begin
      if Pos(List[i], 'connect')<>0 then Delete(List[i]);
    end;
    List.SaveToFile('edit.txt');
    List.Free;
 end;

  for i:=0 to List.Count-1 do
    begin
      if Pos(List.String[i], 'connect')=1 then List.Delete(i);
    end;

if Pos(List.Strings[i], 'connect')=1 then List.Delete(i);

var
  List: TStringList;
  i: integer;
begin
  try
    List:=TStringList.Create;
    List.LoadFromFile('edit.txt');    
    List.Sort;
  except
    ShowMessage('Какая-то ошибка :)!');
  end;
  for i:=0 to List.Count-1 do
    begin
      if List(Find(List.Strings[i]), 'connect') then Delete(List[i]);
    end;
    List.SaveToFile('edit.txt');
    List.Free;
 end;

var
  List: TStringList;
  i: integer;
begin
  try
    List:=TStringList.Create;
    List.LoadFromFile('edit.txt');    
//    List.Sort;  // тут сортировать не нужно
  except
    ShowMessage('Какая-то ошибка :)!');
  end;
  for i:=0 to List.Count-1 do
    begin
      if List.IndexOf('connect')>0 then Delete(List[i]);
    end;
    List.SaveToFile('edit.txt');
    List.Free;
 end;

begin
List:=TStringList.Create;//вот эту строку переставь
  try
    
    List.LoadFromFile('edit.txt');

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  i: integer;
begin
  try
    List:=TStringList.Create;
    List.LoadFromFile('edit.txt');
  except
    ShowMessage('Какая-то ошибка :)!');
  end;
  for i:=List.Count-1 downto 0 do
    begin
      if Pos('connect', List.Strings[i])<>0 then List.Delete(i);
    end;
    List.SaveToFile('edit.txt');
    List.Free;
 end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;
begin
  if not OpenDialog1.Execute then Exit;  // чтоб ошибка не возникала если пользователь нажмет "отмену" в опендиалоге
  FileName:=OpenDialog1.FileName;
//  далее используй имя переменной FileName
end;