OrderForm.tOrder.Insert;
For I := 0 To OrderForm.tOrder.Fields.Count-1 Do
 If OrderForm.tOrder.Fields[i].FieldName = 'Num'
   Then Continue
   Else OrderForm.tOrder.Fields[i].Value := SkladForm.tSklad.FieldByName(OrderForm.tOrder.Fiel ds[i].FieldName).Value;
OrderForm.tOrder.Post;