[sokolik]

var i:integer;
begin
DataModule2.T_sostav.First;
for I := 1 to DataModule2.T_sostav.RecordCount do
begin
ComboBox1.Items.Add(DataModule2.T_sostavMarshrut.A sString);
DataModule2.T_sostav.Next;