En el fondo el codigo seria asi:
Código Delphi
[-]
procedure Form1.Button1Click(Sender: TObject);
begin
DataModule1.ZTable1.Open;
DataModule1.ZTable1.Insert;
DataModule1.ZTable1.FieldbyName('OC').AsString := DBEdit14.Text;
...
...
DataModule1.ZTable1.Post;
end;
No se que mas detalles puedo entregar... gracias de antemano... aps... y esta activo...