anchor.diff:  var
     R: string;
     I: Integer;
  -  IsTimeout: boolean;
   begin
     if FInTransaction then
     begin
  
positive.code: var
    R: string;
    HowMany: Integer;
    IsTimeout: boolean;
  begin
    AValidResponse := True;
    NextToken(R);
  
negative.code: end;
  
  function TRedisClient.EXISTS(const AKey: string): boolean;
  begin
    NextCMD := GetCmdList('EXISTS');
    NextCMD.Add(AKey);
  