BDE til ADO

Jeg er ved at konvertere et program fra BDE til ADO, og er nu stødt på et problem !

Hvordan laves nedenstående med ADO !?

    for i := 2 to 14 do begin
      case Q.Params[i].DataType of
      ftString:
          allEmpty := allEmpty and (Q.Params[i].AsString=\'\');
      ftInteger:
          allEmpty := allEmpty and (IntToStr(Q.Params[i].AsInteger)=\'\');
      end;
    end;

Snowball