[[BlueSteel]]

Primero que nada debes tener lo siguiente en tu Formulario :

- Componente TIBDatabase (Declaración de la base de datos de Interbase)
- Componente TIBTransaction (declaración de la transacción de los datos)
- Componente TIBQuery (Declaración de las sentencias a ejecutar )

llamaremos a :
- TIBDatabase (IBD_Compras)
- TIBTransaction (IBT_Compras)
- TIBQuery (IBQ_Compras )

Con este codigo podras eliminar un registro de tu tabla

// La idea del Try Except,, es que no de error si quieres borrar registros y la base este vacia
Try
If MessageDlg('Seguro de Eliminar el Area '+
   #13+#13+IBQ_Select['Are_Detalle'], mtConfirmation, [mbYes, mbNo], 0) = mrYes then
   Begin
          IBQ_Compras .SQL.Clear;
          IBQ_Compras .SQL.Add('Delete From "Area" Where "Are_Codigo"=:Var1');
          IBQ_Compras .Params[0].AsString := vCod.Text;
          IBQ_Compras .ExecSQL;
          IBT_Compras .Commit;
    End
Except
     ShowMessage('No existen registros que se puedan eliminar');
End;

Con este codigo podras Agregar un registro a tu tabla

If MessageDlg('Seguro de Agregar este Centro de Costos ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
   Begin
          IBQ_Compras .SQL.Clear;
          IBQ_Compras .SQL.Add('Insert Into "Area" ("Are_Codigo","Are_Detalle","Are_Encargado")');
          IBQ_Compras .SQL.Add('Values (:P1,:P2, :P3)');
          IBQ_Compras .Params[0].AsString := vCod.Text;
          IBQ_Compras .Params[1].AsString := vDes.Text;
          IBQ_Compras .Params[2].AsString := CB_Jefe.Text;
          IBQ_Compras .ExecSQL;
          IBT_Compras .Commit;
          If MessageDlg('El Area ya Fue Ingresado'+
             #13+#13+'Desea ingresar Otra ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
             vCod.SetFocus
          Else
             Panel3.Visible := False;
End;

espero que te sirva esto....