ejecutar codigo y si tiene valor nulo no de error

[edgar_prospero]

que hay amigos aqui con un pequeño problema resulta que tengo un edit en el cual mediante el evento keypress al meter un numero de codigo me trae el resultado a varios edit bueno hasta ahi todo bien, mi problema esta en que si en ese edit no le pongo ningun valor y le doy enter me arroja un error que dice

Código Delphi [-]
evariant invalid arg error with mensaje 'invalid argument'

entones lo intente con lo siguiente pero no me funciono porque pone el letrero pero no detiene el proceso:

Código Delphi [-]
 if(codigo.Text='')then
  Messagebox(Handle,PChar('el campo no puedo estar en blanco'),PChar('Atencion!!!'),Mb_ok);