[lmikle]

мда...

Код:

ADOTable1.Active := True;
ADOTable1.First;
StringGrid1.ColCount := ADOTable1.Fields.Count;
StringGrid1.RowCount := 0;
While Not ADOTable1.EOF Do
  Begin
    StringGrid1.RowCount := StringGrid1.RowCount+1;
    For I := 0 To ADoTable1.Fields.Count-1 Do
       StringGrid1.Cells[I,StringGrid1.RowCount-1] := ADoTable1.Fields[i].AsString;
    ADOTable1.Next;
  End;
ADOTable1.Active := False;

как-то так.
Только нафига? для отображения данных существует такой компонент, как TDBGrid.