Запись в массив ячеек из DBGrid - Delphi

[S_007]

Добрый День!
Помогите решить очередную задачу...

Есть таблица из которой нужно считать все данные из каждой ячейки в массив, подключение - ADOConnection. ADOTable, DataSource. Так как DBGrid не хранит информацию, а только отображает, и нельзя обратиться к каждой ячейке так как в StringGrid то как прочитать данные со всей таблицы?
Нашел пример, что вот так можно считать в переменные из ячеек в выделенной строке

a := DBGrid.DataSource.DataSet.FieldByName('Имя').AsString;
b := DBGrid.DataSource.DataSet.FieldByName('Фамилия').AsString;

Но если колонок в таблице например десять и для каждой писать такую
строку то ведь код очень громоздкий получится

Как это в цикле сделать и не для выделенной строки?
И как прочитать с остальных строк если их в таблице может быть пять или семь?

Вот нашел еще пример - копирование содержимого в StringGrid
Может на основании этого примера можно записать и массив?
и здесь используется ADOQuery а у меня ADOTable
Как это сделать, помогите пожалуйста, буду очень благодарен

StringGrid1.RowCount:=ADOQuery1.RecordCount;
StringGrid1.ColCount:=ADOQuery1.FieldCount;
ADOQuery1.First;
for i:=0 to ADOQuery1.RecordCount-1 do
  begin
    for j:=0 to ADOQuery1.FieldCount-1 do
      begin
        StringGrid1.Cells[j,i]:=ADOQuery1.Fields.Fields[j].AsString;
      end;
    ADOQuery1.Next;
  end;

[Serge_Bliznykov]

Вот нашел еще пример - копирование содержимого в StringGrid
Может на основании этого примера можно записать и массив?
и здесь используется ADOQuery а у меня ADOTable

вообще всё почти один в один:

var 
  Massiv : array of array of string;
begin
  ....

  SetLength( Massiv, ADOTable1.RecordCount, ADOTable1.FieldCount);
  ADOTable1.First;

  for i:=0 to ADOTable1.RecordCount-1 do
    begin
      for j:=0 to ADOTable1.FieldCount-1 do
        begin
          Massiv[i,j]:=ADOTable1.Fields.Fields[j].AsString;
        end;
      ADOTable1.Next;
    end;

[S_007]

Serge_Bliznykov, Я не знаю как благодарить Вас! В один миг вы нашли решение в моей проблеме! Если бы можно было бы, я бы поставил Вам тысячу одобрений!
Спасибо Вам - Это то что надо!

[Serge_Bliznykov]

да ну что Вы, не за что!