function DelParam(const URL: string ): string;
Var
  params: TStringList;
  i: Integer;
begin
  params := TStringList.Create;
  try
    params.Delimiter := '&';
    params.DelimitedText := GetAfter(url, '?');

    for i := 0 to pred(params.Count) do
      if params[i].Contains('cursor') then
      begin
        params.Delete(i);
        Break;
      end;

    Result := params.DelimitedText;

  finally
    FreeAndNil(params)
  end;
end;