{
 This copies the contents of a TstringGrid/TDrawGrid (only Text!!) into a string.
 Tabs are inserted between the columns, CR+LF between rows.
}
 use
  Grids;
 {...}
 { we need this Cracker Class because the Col/RowCount property
 is not public in TCustomGrid }
 type
  TGridHack = class(TCustomGrid);
 function GetstringGridText(_Grid: TCustomGrid): string;
 var
  Grid: TGridHack;
  Row, Col: Integer;
  s: string;
 begin
  // Cast the paramter to a TGridHack, so we can access protected properties
 Grid := TGridHack(_Grid);
  Result := '';
  // for all rows, then for all columns
 for Row := 0 to Grid.RowCount - 1 do
  begin
  for Col := 0 to Grid.ColCount - 1 do
  begin
  // the first column does not need the tab
  if Col > 0 then
  Result := Result + #9;
  Result := Result + Grid.GetEditText(Col, Row);
  end;
  Result := Result + #13#10;
 end;
 end;