[Страдалецъ]

Ну собственно загрузить в массив можно так:

Код:

Var i: Integer;
    Data: Array of Integer;
begin
 SetLength(Data, AdoQuery1.RecordCount);
 while not AdoQuery1.Eof
 do begin
    Data[i] := AdoQuery1.Fields[2].AsInteger;
    AdoQuery1.Next;
    end;