BrkCnt := 0;
 //запоминаем инструкцию
 StartAddr := $401000 + FndLin.Offset;
 ReadProcessMemory(ProcInfo.hProcess, Pointer(StartAddr),
                             @OrigOp, SizeOf(OrigOp), BR);

 //записываем точку останова
 BrkPnt := $CC;
 WriteProcessMemory(ProcInfo.hProcess, Pointer(StartAddr),
                             @BrkPnt, SizeOf(BrkPnt), BW);

 repeat
   WaitForDebugEvent(Event, INFINITE);

   if (Event.dwDebugEventCode = EXCEPTION_DEBUG_EVENT) and
      (Event.Exception.ExceptionRecord.ExceptionCode = EXCEPTION_BREAKPOINT) then
begin
 Inc(BrkCnt);
 //пропускаем останов на первой исполняемой инструкции
 if BrkCnt > 1 then
 begin
   //останавливаемся в нужном месте
  ...
  //восстанавливаем инструкцию в точке останова
  WriteProcessMemory(ProcInfo.hProcess, Pointer(StartAddr),
                    @OrigOp, SizeOf(OrigOp), BW);
  //для надежности
  FlushInstructionCache(ProcInfo.hProcess, nil, 0);
 end;
end;

  //продолжаем выполнение
  ContinueDebugEvent(Event.dwProcessId, Event.dwThreadId, DBG_CONTINUE);

until False;