var edt: array[0..9] of TEdit; i: integer; begin Table1.Append; for i := 0 to 9 do Table1.Fields[i].AsString := edt[i].Text; Table1.Post; end;