var
      i,j: integer;
      f:textfile;
      s:string;
    begin
if OpenDialog1.Execute then
      //удаление текста из файла
      AssignFile(f,'file.txt');
      Reset(f);   // Открыть файл для чтения

      While not (Eof(f)) and (Pos(edit1.Text, s)=0) do begin // пока не дойдём до конца и edit1
      for i := 1 to length(s) do
        Begin
          if pos(edit1.Text,s)>0 then begin
                                                  delete(S, pos(#13, s) , length(s));
                                                  showmessage(edit1.Text+' удален!');
                                               end
                                                  else write(f,s);
        end;
                                                                       end;

      CloseFile(f); // закрыть файлы
    end;