Подскажите ,вот где тут ошибка?

[ChevChelos]

Пишет на if Search.Next then begin

procedure TForm1.N10Click(Sender: TObject);
var
  Search: TMemorySearch;
begin
if N10.Checked = False then begin
  if SearchEngine <> nil then
    begin
      Search := SearchEngine.NewSearch('F3 0F 7E 4F 10 F2 0F 5C C1');
      try
        Search.OPT_READPAGE_EXECUTEREADWRITE := False;
        Search.OPT_READPAGE_READWRITE := False;

        Search.OPT_READPAGE_EXECUTEREAD := True;
        Search.OPT_READPAGE_READONLY := False;


        if Search.Next then begin
          FreeAndNil(SearchResultTwo);
          SearchResult := Search.GetFindedAddressObject;
          SearchResult.WriteHEX(0, 'F3 0F 7E 4F 10 F2 0F 5C C0');
        end
        if Search.Next then begin
          FreeAndNil(SearchResultTwo);
          SearchResult := Search.GetFindedAddressObject;
          SearchResult.WriteHEX(0, 'F3 0F 7E 4F 10 F2 0F 5C C0');
        end
        if Search.Next then begin
          FreeAndNil(SearchResultTwo);
          SearchResult := Search.GetFindedAddressObject;
          SearchResult.WriteHEX(0, 'F3 0F 7E 4F 10 F2 0F 5C C0');
        end
        else begin
          N10.Checked:=False;
          Exit;
        end
      finally
        Search.Free;
      end;
    end
  else
    ShowMessage('1');
end
else
if N10.Checked = True then begin
  if SearchEngine <> nil then
    begin
      Search := SearchEngine.NewSearch('F3 0F 7E 4F 10 F2 0F 5C C0');
      try
        Search.OPT_READPAGE_EXECUTEREADWRITE := False;
        Search.OPT_READPAGE_READWRITE := False;

        Search.OPT_READPAGE_EXECUTEREAD := True;
        Search.OPT_READPAGE_READONLY := False;


        if Search.Next then begin   / вот тут пишет
          FreeAndNil(SearchResultTwo);
          SearchResult := Search.GetFindedAddressObject;
          SearchResult.WriteHEX(0, 'F3 0F 7E 4F 10 F2 0F 5C C1');
        end
        if Search.Next then begin
          FreeAndNil(SearchResultTwo);
          SearchResult := Search.GetFindedAddressObject;
          SearchResult.WriteHEX(0, 'F3 0F 7E 4F 10 F2 0F 5C C1');
        end
        if Search.Next then begin
          FreeAndNil(SearchResultTwo);
          SearchResult := Search.GetFindedAddressObject;
          SearchResult.WriteHEX(0, 'F3 0F 7E 4F 10 F2 0F 5C C1');
        end
        else begin
          N10.Checked:=False;
          Exit;
        end
      finally
        Search.Free;
      end;
    end
  else
    ShowMessage('1');
end
end;