[jejo1984]

Si usas Tquery te pongo un ejemplo:

Código Delphi [-]
procedure Tfrm_mod_tip_inci.cmd_grabarClick(Sender: TObject);
var idtipoinci:string;
begin
  if(Trim(txt_tip_inci.text)='')then
  begin
  showmessage('Ingresa nombre de la Incidencia');
  txt_tip_inci.SetFocus;
  exit;
  end
  else if(Trim(txt_desc_tip_inci.text)='')then
  begin
  showmessage('Ingresa descripción de la incidencia');
  txt_desc_tip_inci.SetFocus;
  exit;
  end;
  //obtenemos el id
  idtipoinci:=lblidtipo.Caption;
  //fin
  SQLTransaction1.Rollback;
  SQLTransaction1.StartTransaction;
  Sqlmodifica_inci.Close;
  Sqlmodifica_inci.SQL.Clear;
  Sqlmodifica_inci.SQL.Text:='select * from update_tip_incidencia('''+trim(txt_tip_inci.Text)+''','''+trim(txt_desc_tip_inci.Text)+''','+idtipoi  nci+')';
  try
  Sqlmodifica_inci.ExecSQL;
  SQLTransaction1.Commit;
  showmessage('Se grabo correctamente');
  ModalResult := mrCancel;
  PQConnection1.Close;
  except
   on E: Exception do
   begin
    Showmessage( PChar( E.Message )+ 'Error de SQL');
    SQLTransaction1.EndTransaction;
  end;
  end;
end;