[jgmarduel]

Soy supernovato y pongo este código sin resultado ni error. Alguien me podría orientar ?? Aceptaría con gusto especificaciones para Mod y Delete.

Código Delphi [-]
procedure TForm2.BitBtn2Click(Sender: TObject);
var
  estado: Boolean;
begin
  estado := False;
  if Form2.CheckBox1.State = cbChecked then
  begin
    estado := True;
  end;
  Database1.Connected := True;
  DataSource1.Enabled := True;
  Table1.Active := True;
  Table1.Open;
  Table1.Insert;
  Table1.FieldByName('Titulo').AsString := Form2.Edit1.Text;
  Table1.FieldByName('Arancelado').AsBoolean := estado;
  Table1.Post; 
  Table1.Close;
  Table1.Active := False;
  DataSource1.Enabled := False;
  Database1.Connected := False;
end;