Lo que sucede es que el texto del error contiene todo el string que se despliega:
Posible solución:
Código Delphi
[-]
var
STexto:String;
begin
Try
...lineas de código
...
Except on E : Exception Do
begin
STexto:=Copy(E.Message, 1, 25);
Showmessage(E.Message);
Showmessage(STexto); end
Todo lo anterior en base a suposiciones, ya que no incluiste el código donde controlas el error.
Espero te ayude, saludos cordiales