[[egostar]]

Yo haria lo siguiente:

Código Delphi [-]
if Messagedlg('¿Estas Seguro que deseas Guardar este registro?',mtconfirmation,[mbyes,mbno],0)= mryes then begin
   try
          datamodule1.tblClientes.Post;
   except
      ShowMessage('Cliente ya existe');
   end;
end;

Bienvenido al foro y te recomiendo que leas la guia de estilos

Salud OS.