Fórum mensagens personalizadas do firebird #275946

Como posso persolnalisar as mensagens de retorno do fire bird

atualmente uso assim

begin
try
TransDesc.TransactionID:=1;
TransDesc.IsolationLevel:=xilREPEATABLEREAD;
DataModule1.SQLConn.StartTransaction(TransDesc);

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´select * from VALIDA_USUARIO(:PAR_NOME_USUARIO, :PAR_SENHA_USUARIO, :PAR_EMPRESA)´);
query1.ParamByName(´PAR_NOME_USUARIO´).AsString := Edit1.Text;
Query1.ParamByName(´PAR_SENHA_USUARIO´).AsString := Edit2.Text;
Query1.ParamByName(´PAR_EMPRESA´).AsInteger := StrToInt(Edit4.Text);
Query1.Open;

DataModule1.SQLConn.Commit(TransDesc);



except
on Exc:Exception do
begin
ShowMessage(´Falha no login: ´+exc.Message);
DataModule1.SQLConn.Rollback(TransDesc);
end;
end;
end;

a resposta quando ocorre o erro é a seguinte:

Falha no login: SQL Server Error: exception1 Usuario ou senha invalido!!!
At procedure ´VALIDA_USUARIO´

a dúvida é como posso fazer para que na resposta contenha somente Falha no login: Usuario ou senha invalido!!!