Считывание данных из БД

[aimk0]

Всем привет! Имеется база данных, созданная при помощи ADOTable и DataSource. Таблица состоит из 7-ми столбцов, n строк. Надо считать данные из таблицы в двумерный массив(A:array of array of real) с 3-го по 7-й столбец.Знаю примерно как считать всю таблицу(пример ниже), а как именно с 3 по 7 столбец не пойму.

procedure TForm1.Button2Click(Sender: TObject);
var A:array of array of real;
k,i:integer;
begin
SetLength(A,101);
ADOTable1.First;
k := 0;
while not ADOTable1.Eof do begin
for i := 0 to ADOTable1.FieldCount-1 do begin
A[k, i] := ADOTable1.Fields[i].Value;
end;
ADOTable1.Next;
inc(k);
end;

end;

И еще одна проблемка, в 7-ом столбце таблицы хранятся текстовые данные, всего их 5 разновидностей. Можно ли сделать проверку для 7-ого столбца, что-то вроде:
если строка='один' то в соответствующую ячейку массива записывается число 1
если строка='два' то в соответствующую ячейку массива записывается число 2
и т.д. до пяти