Fórum Capturando a variavel da mensagem de erro #333815

Boa Tarde
<imagem removida pelo moderador>

Gostaria de saber se tem alguma froma para capturar esse campo que a mensagem diz q ñ pode ser nulo.

Porque eu trato esse erro de acordo com a mensagem que ele gera se eu colocar desta forma que esta na mensagem se o campo nulo for outro o erro ñ vai ser tratado, deve existir alguma variavel de sistema que armazene esse campo.

Estou usando esse Código.

if pos(upperCase(´O Campo ´+#39+´CadMatPrima.codigo´+39+´ não pode ser uma sequência de caracteres de comprimento nulo.´), UpperCase(E.Message)) > 0 then
begin
beep;
P1:=Pos(´´´´, E.Message);
mensagemerro:= E.Message;
delete(mensagemerro, p1, 1);
P2:=Pos(´´´´,mensagemerro);
mensagemerro:=copy(e.Message, p1 + 1, p2 - p1);
showmessage(´O campo [´+ mensagemerro + ´] é de preenchimento obrigatório.´);
end;

Mas se o campo nulo for outro ele ñ trata.

Desde de já obrigado