var Ar : Array of Variant; ... ... Ar := ADOQuery.FieldByName('cn').AsVariant; Name := Ar[0]; Ar := ADOQuery.FieldByName('uid').AsVariant; Login := Ar[0];