из листбокса в дбгрид

[BaiAs]

здраствуйте!
пчему в таблицу вставляются пустые строки, ане как положено со значениями?

procedure TForm3.Button1Click(Sender: TObject);
var n :byte;

begin
  for n:=0 to  ListBox1.Items.Count-1 do
    begin
      DataModule1.cdsNakPeremSlave.insert;
      DataModule1.cdsNakPeremSlaveTOvAR.Value:=Form3.ListBox1.Items[n];
      DataModule1.cdsNakPeremSlave.Post;
      DataModule1.cdsNakPeremSlave.ApplyUpdates(-1);
      DataModule1.cdsNakPeremSlave.Active:=false;
      DataModule1.cdsNakPeremSlave.Active:=true;
    end;

end;

[SERG1980]

......
 DataModule1.cdsNakPeremSlaveTOvAR.AsString:=Form3.ListBox1.Items[n];
 DataModule1.cdsNakPeremSlave.Post;
 DataModule1.cdsNakPeremSlave.ApplyUpdates(0);

А вообще строку

DataModule1.cdsNakPeremSlave.ApplyUpdates(0);

лучше написать в событии AfterPost компонента cdsNakPeremSlave

[BaiAs]

а это поможет?