except
on E.EDatabaseError do ShowMessage('Ошибка выполнения запроса:');
end;

В программе я делаю запрос пишу в Memo1, когда он написан без ошибок, то
выполняется, а как только я спецом делаю ошибку, он выдает ошибку, но
там не написано "Ошибка выполнения запроса:" + ещё вылетает из проги.
Как сделать, чтобы просто выдавало сообщение, что введенный запрос неверен и не вылетало, а просто не делало запроса.

Спасибо.

except
on E:EDatabaseError do ShowMessage('Ошибка выполнения запроса:');
end;

тоже не идет..

procedure TForm1.Button3Click(Sender: TObject);
begin
try
with ADOQuery1 do
begin
if Active then Close;
SQL.Clear;
SQL.Assign(Memo2.Lines);
Open;
end;
except
on E.EDatabaseError do ShowMessage('Ошибка выполнения запроса');
end;

end;

Project Pr1.exe raised exception class EOleException with message
'[Microsoft][ODBC SQL Server Driver][SQL Server] Could not find stored proceedure
'Memo2''. Process stopped. Use Step or Run to continue.

А про EOLEException выдало, что не определён.