var
 OpenStr, SaveStr, DelemStr, BtnStart: PChar;
 FullF, ClearF: TextFile;
 i: integer;
 s: String;
begin
    {Clear process}
    CurUpTimeHr := 0;
    CurUpTimeMin := 0;
    CurUpTimeSec := 0;
    Stop := False;  

    SetTimer(hWnd, 1, 1000, @TimerWork);
    GetDlgItemText(hWnd, 1, @OpenStr, MAX_PATH-1);
    GetDlgItemText(hWnd, 3, @SaveStr, MAX_PATH-1);
    GetDlgItemText(hWnd, 5, @DelemStr, MAX_PATH-1);

    AssignFile(FullF, OpenStr);
    Reset(FullF);
    AssignFile(ClearF, SaveStr);
    ReWrite(ClearF);

    try
     UpdateWindow(hWnd);
     while not EOF(FullF) do
     begin
      if Stop = True then
      begin
       CloseFile(FullF);
       CloseFile(ClearF);
       SetDlgItemText(hWnd, 8, 'Старт');
       KillTimer(hWnd, 1);
       EnableWindow(GetDlgItem(hWnd,1), True);
       EnableWindow(GetDlgItem(hWnd,2), True);
       EnableWindow(GetDlgItem(hWnd,3), True);
       EnableWindow(GetDlgItem(hWnd,4), True);
       Exit;
      end;
      i := i + 1;
      SetDlgItemText(hWnd, 6, PChar(IntToStr(i)));
      UpdateWindow(hWnd);
      ReadLn(FullF, s);
      if pos(DelemStr, s) > 0
       then WriteLn(ClearF, Copy(s, 0, pos(DelemStr, s) - 1));
      UpdateWindow(hWnd);
     end;