[Silent]

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

Выдрал из своего проекта.