manejo de excepciones try y except no funciona

[gulder]

hola otravez por aqui ...

esoy capturando la siguiente excepcion pero no me funciona

Código Delphi [-]
  try
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add(Edit1.Text);
     ADOQuery1.Active:=true;
   except on e: exception do
   begin
     ShowMessage('Error de sentencia'+e.Message);
   end;
 end;

supuestamente cuando escribo en el edit1 y no coresponde a ninguna consulta osea escribo mal las instrucciones deberia mostrarme el mensaje que coloque en la parte del except pero no es asi me sale uno que lo muestra delphi y se me traba la aplicacion no se porque no me funciona.

grasias de ante mano gulder........?