Incremental en red

[jgmarduel]

gracias. antes del post ??? Yo hago esto y me tira error:

 procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Form1.DSMesa.DataSet.Open;
Form1.DSMesa.DataSet.Append;
Form1.DSMesa.DataSet.FieldByName('fecha').AsDateTime := now();
Form1.DSMesa.DataSet.FieldByName('iniapel').AsString := Form2.Edit1.Text;
Form1.DSMesa.DataSet.FieldByName('ininom').AsString := Form2.Edit2.Text;
Form1.DSMesa.DataSet.FieldByName('tomo').AsInteger :=  StrToInt(Form2.Edit3.Text);
Form1.DSMesa.DataSet.FieldByName('folio').AsInteger := StrToInt(Form2.Edit4.Text);
Form1.DSMesa.DataSet.FieldByName('asunto').AsString := Form2.Edit5.Text;
FormNumero.Label2.Caption := IntToStr(Form1.DSMesa.DataSet.FieldByName('id').Value);
//Form1.DSMesa.DataSet.FieldByName('asunto').AsString := Form2.Edit5.Text;
Form1.DSMesa.DataSet.Post;
Form1.DSMesa.DataSet.Close;
FormNumero.ShowModal;
//Form1.DataSource1.DataSet.FieldByName('Iniciante').Value := Form2.

//Form1.Database1.Connected :=False;
end;

El error es "Could not convert variant of type (null) into typr (Integer)"