Italian community of Lazarus and Free Pascal

 SpiderTable1.ColumnCount:= 3; {gli dico il numero delle colonne}
 SpiderTable1.SetHeader(['ID', 'Name', 'Telephone Number']); {specifico l'intestazione}
 SpiderTable1.AddRow('', ['1', 'Mohammed', '01223311']); {Specifico la riga con i valori, primo parametro colore della riga e secondo un vettore con dentro i dati}
 SpiderTable1.AddRow('#FFEEDD', ['2', 'Ahmed', '01754341']); {Specifico la riga con i valori, primo parametro colore della riga e secondo un vettore con dentro i dati}
 SpiderTable1.AddRow('#FFDDEE', ['3', 'Omer', '045667890']); {Specifico la riga con i valori, primo parametro colore della riga e secondo un vettore con dentro i dati}
 Response.Add(SpiderTable1.Contents); {stampo la tabella}

SpiderTable1.DataSet:= ATable; {assegno il dataset di nome ATable all'oggetto}
ATable.Open; {apro il Dataset}
Response.Add(SpiderTable1.Contents); {Stampo la tabella con dentro i dati del dataset}