Bueno a ver si te puedo ayudar...Mirando el código que escribiste puedo ver que requieres valida el contenido del Edit4 y este debe ser un valor numérico...
Bueno para ello podría quedar así...
Código Delphi
[-]
var
Valor:Integer;
begin
if Not TryStrToInt(edit4.Text,Valor) then
Exit;
Try
if (existe_sit_iva(validar_sit_iva,Valor)=false) then
edit5.Text:='error'
else
edit5.Text:=mostrar_desc(mostrar_descri,Valor);
except raise Exception.Create('Mostrar_Texto_Error');
end;
end;
Variante...
Código Delphi
[-]
var
Valor:Integer;
begin
if Not TryStrToInt(edit4.Text,Valor) then
Exit;
Try
if (existe_sit_iva(validar_sit_iva,Valor)=false) then
edit5.Text:='error'
else
edit5.Text:=mostrar_desc(mostrar_descri,Valor);
except
on E:Exception do Showmessage( E.Message );
end;
end;
Busca en la ayuda Exceptions, raise, try
Saludos cordiales