Работа с файлами

procedure TForm2.Button1Click(Sender: TObject);
Var i:integer;
    s,c:String;
begin
     Memo1.Lines.LoadFromFile('11111.txt');
     c:=Edit1.Text;
     //ShowMessage(IntToStr(Memo1.Lines.Count));
     For i:=0 to Memo1.Lines.Count-1 do begin
         s:=Memo1.Lines[i];
             //If i=15 then ShowMessage(s);
         Memo2.Lines.add('22222.txt');
     end;
     Memo2.Lines.SaveToFile('2222.txt');
   
end;
 
end.

procedure reformfile(chr: Char);
var
  i: integer;
  memo1, memo2: TMemo;
  str: string;
begin
  memo1.lines.loadfromfile(path);
  memo2.clear;
 
  //мы должны символ каждой строки в memo1 проверить на соответствие с заданным символом
  for i := 0 to memo1.lines.count-1 do
  begin
    str := memo1.lines[i];
//Проверка на соответствие с символом
    if str[1] = chr then
    begin
//если соответствует, то дописываем
      memo2.add(str);
    end;
  end;
memo2.lines.savetofile(newPath);
end;

if s[1]=c then memo2.lines.add(s);