Function Export_Table_To_StringGrid(Table: TTable; StringGrid: TStringGrid): Boolean;
Var
Ix, Iy: Integer;
Begin
With Table Do
Begin
For Iy:= 0 To FieldCount - 1 Do
StringGrid.Cols[Iy].Text:= FieldDefs.Items[Iy].Name;
First;
For Ix:= 1 To RecordCount Do
Begin
For Iy:= 0 To FieldCount - 1 Do
StringGrid.Cells[Iy, Ix]:= FieldByName(FieldDefs.Items[Iy].Name).AsString;
Next;
End;
End;
Result:= True;
End;