Components for Delphi and C++ Builder.

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;

  DBGridEh1.DataSource.DataSet.First;
  DBGridEh1.DataSource.DataSet.DisableControls;
  while not DBGridEh1.DataSource.DataSet.Eof do
  begin
    sl.Add(DBGridEh1.Columns[0].DisplayText);
    DBGridEh1.DataSource.DataSet.Next;
  end;
  DBGridEh1.DataSource.DataSet.EnableControls;

  sl.Free;
end;

intArray: TArray<integer>;
strArray: TArray<string>;

intArray := mt.FieldByName('fieldName').AsIntegerArray;
strArray := mt.FieldByName('fieldName').AsStringArray;