No práve, že je. Napísal som to len sa to v tom kvante textu stratilo. Kód vypadá takto:

EditObjednavky.ShowModal;
if EditObjednavky.ModalResult=mrOk then begin
 IDPom:=StrToInt(EditObjednavky.Label1.Caption);
 TableObjednavky.Last;
 TableObjednavky.Edit;
 TableObjednavky.FieldByName('SumaTovaru').AsString:=EditObjednavky.Label12.Caption;
 TableObjednavky.FieldByName('ZlavaPer').AsString:=EditObjednavky.Edit9.Text;
 TableObjednavky.FieldByName('ZlavaSum').AsString:=EditObjednavky.Label23.Caption;
 TableObjednavky.FieldByName('DPH').AsString:=EditObjednavky.Label25.Caption;
 TableObjednavky.FieldByName('CelkovaSuma').AsString:=FloatToStr(celkova);
 TableObjednavky.FieldByName('Provizia').AsString:=FloatToStr(provizia);
 TableObjednavky.FieldByName('NazovSpolocnostiPrijemcu').AsString:=EditObjednavky.Edit1.Text;
 TableObjednavky.FieldByName('MenoPrijemcu').AsString:=EditObjednavky.Edit2.Text;
 TableObjednavky.FieldByName('AdresaPrijemcu').AsString:=EditObjednavky.Edit3.Text;
 TableObjednavky.FieldByName('MestoPrijemcu').AsString:=EditObjednavky.Edit4.Text;
 TableObjednavky.FieldByName('PSCPrijemcu').AsString:=EditObjednavky.Edit5.Text;
 TableObjednavky.FieldByName('StatPrijemcu').AsString:=EditObjednavky.Edit6.Text;
 TableObjednavky.FieldByName('DatumDodania').AsString:=DateToStr(EditObjednavky.DateTimePicker1.Date);
 TableObjednavky.FieldByName('SposobDopravy').AsString:=EditObjednavky.ComboBox1.Text;
 TableObjednavky.FieldByName('Dopravne').AsInteger:=dopravne;
TableObjednavky.FieldByName('KontaktyID').AsInteger:=EditObjednavky.ADOTable1.FieldByName('KontaktyID').AsInteger;
 TableObjednavky.Post;
with ADOQuery2 do
 begin
   Active:=false;
   SQL.Clear;
   SQL.Add('SELECT * FROM Objednavky, Kontakty  WHERE Objednavky.KontaktyID=Kontakty.KontaktyID');
   Active:=true;
 end;