[cacu]

Código SQL [-]
CREATE DEFINER=`root`@`localhost` PROCEDURE `MantencionEmpresa`( emp_rut varchar(14),emp_nf  varchar(50),emp_rs  varchar(50),
                          emp_gr  varchar(50),
                          emp_dir varchar(50),
                          emp_com varchar(50),
                          emp_tel varchar(20),
                          emp_fx  varchar(20),
                          emp_rl  varchar(50),
                          emp_rr  varchar(14))
begin

if exists(select adq_emp_rut from empresa where adq_emp_rut = emp_rut) then
      BEGIN
       update empresa             
        set  adq_emp_nf=emp_nf,
             adq_emp_rs=emp_rs,        
             adq_emp_gr=emp_gr,        
             adq_emp_dir = emp_dir,        
             adq_emp_com = emp_com,        
             adq_emp_tel = emp_tel,        
             adq_emp_fx  = emp_fx,        
             adq_emp_rl   = emp_rl,        
             adq_emp_rr  = emp_rr       
       where adq_emp_rut = emp_rut; 
          
     END;      
else
     insert into empresa (adq_emp_rut,adq_emp_nf,adq_emp_rs,adq_emp_gr,adq_emp_dir,adq_emp_com,adq_emp_tel,adq_emp_fx,
     adq_emp_rl,adq_emp_rr) values(emp_rut,emp_nf,emp_rs,emp_gr,emp_dir,emp_com,emp_tel,emp_fx,emp_rl,emp_rr);
         
end if;

end;

Remito Codigo del Porc.Almacenado...Estimado colega no se que estoy haciendo mal....y por cierto efectivamente el codigo delphi lo tome prestado de uno de tus post...gracias por ese aporte..