[wesito]

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text := 'select count(*) cantidad from ciudad where coddep='+inttostr(combo01.KeyValue)+ 'and codciu='+(edit1.Text);
adoquery1.ExecSQL;
adoquery1.Open;

Esto está bien, controlé los campos con la tabla; pero igual tira error 'Invalid variant type conversion'