[AlexGTX]

Спасибо за помощь!!! Разобрался что к чему!!! Вот код для кто решает такую же проблему:
TabSpisanie.Insert;
TabSpisanie.FieldByName('Data').AsDateTime:= DateTimePicker4.Date;
TabSpisanie.FieldByName('Artic').AsInteger:= DBGrid1.DataSource.DataSet.FieldByName('Artic').As Integer;
TabSpisanie.FieldByName('Name').AsString:= DBGrid1.DataSource.DataSet.FieldByName('Name').AsS tring;
TabSpisanie.FieldByName('Type').AsString:= DBGrid1.DataSource.DataSet.FieldByName('Type').AsS tring;
TabSpisanie.FieldByName('Pol').AsString:= DBGrid1.DataSource.DataSet.FieldByName('Pol').AsSt ring;
TabSpisanie.FieldByName('Material').AsString:= DBGrid1.DataSource.DataSet.FieldByName('Material') .AsString;
TabSpisanie.FieldByName('Firma').AsString:= DBGrid1.DataSource.DataSet.FieldByName('Firma').As String;
TabSpisanie.FieldByName('Strana').AsString:= DBGrid1.DataSource.DataSet.FieldByName('Strana').A sString;
TabSpisanie.FieldByName('Ostatok').AsInteger:=StrT oInt(Edit3.Text);
TabSpisanie.FieldByName('Cena').AsInteger:= DBGrid1.DataSource.DataSet.FieldByName('Cena').AsI nteger;
TabSpisanie.Post;
Здесь копируются поля из выделенной строки Grid в другую таблицу.