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

Можно так:

Код:

Var
 Arr: Array of variant;
begin 
 SetLength(Arr,Query1.RecordsCount);
 i := 0;
 while not Query1.eof
 do begin
     Arr[i] := Query1.FieldValues['column_name'];
     Query1.next;
     Inc(i); 
     end;
end;