Копирование нескольких строк из dbgrida в dbgrid

[eviL_exP]

Мне надо чтобы при нажатии на любую строку в dbgride копировал строку в dbgride,при нажатии на другую строку тоже копировал ее а не заменял
Вот код
procedure TForm3.DBGrid1DblClick(Sender: TObject);
var
Num: SmallInt;
begin
for Num := 1 to Form2.Table2.FieldCount-1 do
begin
Form2.Table3.Edit;
Form2.Table3.Fields[Num].Assign(Form2.Table2.Fields[Num]);
Form2.Table3Nomer_tovara.AsFloat:=F orm2.Table2Nomer_tovara.AsFloat;
Form2.Table3.Post;
end;
end;
У меня получилось копировать только одну строку

[S@fer]

Попробуйте так
Edit - редактирование строки
Insert - добавление
Post - сохранение

procedure TForm3.DBGrid1DblClick(Sender: TObject);
var
Num: SmallInt;
begin
for Num := 1 to Form2.Table2.FieldCount-1 do
begin
Form2.Table3.Insert;
Form2.Table3.Fields[Num].Assign(Form2.Table2.Fields[Num]);
Form2.Table3Nomer_tovara.AsFloat:=F orm2.Table2Nomer_tovara.AsFloat;
Form2.Table3.Post;
end;
end;

[Neeter]

S@fer правильно сказал, но и Edit тут тоже нужен.

procedure TForm3.DBGrid1DblClick(Sender: TObject);
var
 Num: SmallInt;
begin
 Form2.Table3.Insert;
 Form2.Table3.Edit;
 for Num := 1 to Form2.Table2.FieldCount-1 do
 begin
  Form2.Table3.Fields[Num].Assign(Form2.Table2.Fields[Num]);
  Form2.Table3Nomer_tovara.AsFloat:=F orm2.Table2Nomer_tovara.AsFloat;
  Form2.Table3.Post;
 end;
end;