Buenos Días, podrías ponerlo entre:
Código:
try
cadena := IntToStr(edCodigo.Text);
except
ShowMessage('Debe introducir solo números');
Exit;
end
//RESTO DE CODIGO
También podrías evaluarlo en el evento Onchange del Edit, realizando cada vez la comprobación anterior. es decir que todo lo que te mete es un número.
Espero que te sirva