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;
idtipoinci:=lblidtipo.Caption;
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;