[TOJluK]

Так, а что там непонятно? Ну вот кусочек:

Код:

for i:=0 to StringGrid1.RowCount-1 do
 Table1.FieldByName('NAME').AsString:=StringGrid1.Cells[0,i];