Cómo puedo capturar una excepción en delphi?

[Fenix_Dark]

Hola, un saludo!!!

Pues verán, estoy usando una variable de tipo TQuery, con la cual hago mis consultas; mi pregunta es como puedo obtener o capturar los errores que me pueda mandar delphi e interpretarlos a mi modo; tengo entendido que se hace con el try... except...; pero no me queda claro; les pongo un ejemplo:

Var
OP : TQuery;
Begin
OP := TQuery.Create(Self);
OP.Close;
OP.SQL.Clear;
OP.SQL:Add('Insert into Tabla(key, nombre) values(''001'', ''Luis'')');
// si el key ya existe, quiero capturar ese error y hacer lo que yo considere
OP.ExecSQL;
end;

Espero haberme explicado, si la pregunta no va aquí, haganme el favor de moverla, gracias.

Hasta pronto!!!

[[poliburro]]

Código Delphi [-]
Var
 OP : TQuery;
Begin
  Try
     Try
       OP := TQuery.Create(Self);
       OP.Close;
       OP.SQL.Text :=  'Insert into Tabla(key, nombre) values(''001'', ''Luis'')';
       OP.ExecSQL;
     Finally
         Op.Free;
     End;
  Except
     On Error: Exception Do
        ShowMessage('Error: ' + Error.Message);
  End;
end;

[Fenix_Dark]

Empezado por poliburro

Código Delphi [-]Var OP : TQuery; Begin Try Try OP := TQuery.Create(Self); OP.Close; OP.SQL.Text := 'Insert into Tabla(key, nombre) values(''001'', ''Luis'')';
OP.ExecSQL;
Finally Op.Free; End;
Except On Error: Exception Do ShowMessage('Error: ' + Error.Message);
End;
end;

Muchas gracias por sacarme de la duda; ahi luego me cobras mediante Jessy jejejejeje (Zihuatanejo Gro.)

[laukri]

disculpen... me equiboque de hilo... lo siento