TccSAP.ReadTables

SAP      := TccSap.Create(Client, ApplicationServer, User, Password, SystemNumber, Language);
SapTable := TccSapTable.Create;
try
  if SAP.ReadTables.Query('TESTTABLE', '*', ['TESTCOLUMN'], SapTable) = true then
  begin
    TableStr := '';
 
    for r:=0 to SapTable.RowCount-1 do
    begin
      for c:=0 to SapTable.ColCount-1 do
      begin
        TableStr := TableStr + SapTable.Cells[c,r] + ';'; 
      end;
      TableStr := TableStr + crlf;
    end;
 
    SaveStringToFile('c:\temp\example.csv',TableStr);
  end;
finally
  SapTable.Free;
  SAP.Free;
end;