应该这样:
sqlString := 'select field1,field2... from table';
....
query.Open;
point[0] := query.fieldbyname('field1').asstring;
......
或者这样:
for i := 0 to 22 do
begin
  point[i] := query.fields[i].asstring;
end;