Problema con las Excepciones y OO

[kueik]

Es decir añado! ME DA UN ERROR DE MEMORIA PORQUE EN E NO HAY NADA!

Except
on E: EDaoConnection do
raise EGINRole.Create('TGINRole: Error '+ Exception(E).Message);
//En E.Message Peta porke? Pero en ejecución e? Peta en Ejecución!
end;

[marto]

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

Type EDaoConnection = Class ( Exception );
Type EGINRole = Class ( Exception );

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
try
   raise EDaoConnection.Create('lalala');
Except
  on E: EDaoConnection do
    raise EGINRole.Create('TGINRole: Error '+ E.Message);
end;

end;

end.

A mi me funciona bien...

[kueik]

haver el control de la Excepción DaoConnection està dentro de la Classe GINRole.

Type EGINRole = Class ( Exception );
type
TGINRole = class
...
..
..
Procedure kaka();
begin
try
DaoConnection.InsertCliente(...); //Aqui se produce la excepción.
Except
on E: EDaoConnection do
raise EGINRole.Create('TGINRole: Error '+ E.Message);
end;

end;

end;

y en el Form:

try
Except
on E: EGINRole do
ShowMessage(E.Message);
end;

[marto]

Solo se me ocurre una cosa, la excepción que genera InsertaCliente no es del tipo EDAoConnection, por lo tanto no se está capturando... ¿Puede ser?
Haz una prueba, en lugar de

Código Delphi [-]
Procedure kaka(); 
begin
  try
    DaoConnection.InsertCliente(...); //Aqui se produce la excepción.
  Except
    on E: EDaoConnection do
      raise EGINRole.Create('TGINRole: Error '+ E.Message);
   end;
end;

haz:

Código Delphi [-]
Procedure kaka(); 
begin
  try
    DaoConnection.InsertCliente(...); //Aqui se produce la excepción.
  Except
    on E: EDaoConnection do
      raise EGINRole.Create('TGINRole: Error '+ E.Message);
    on E: Exception do
      ShowMessage(E.ClassName);
   end;
end;

Ah! y por favor pon tu código entre tags [delphi]