Validação de dados

fala pessoal, sei que é uma coisa bem básica, mas nao sei o motivo mas minha validaçao de campos esta dando erro:

>
/Validar campos

if edit4.text = '' then

begin

 showmessage('Informe o Código da Empresa');

 exit;

 edit4.SetFocus;

 edit4.Tag :=0;

 end;

 

 if edit5.text = '' then

 begin

 showmessage('Informe a Série');

 exit;

 edit5.SetFocus;

 edit5.Tag :=0;

 end;

 

 //validar data

 if maskedit1.Text = ' / / ' then

 begin

 showmessage('Informe a data inicial');

 exit;

 maskedit1.SetFocus;

 maskedit1.Tag := 0;

 end;

 

 if maskedit2.Text = ' / / ' then

 begin

 showmessage('Informe a data final');

 exit;

 maskedit2.SetFocus;

 maskedit1.Tag := 0;

 end;

Somente 1 campo ele exibe a mensagem, se outro estiver em branco da ah seguinte msg de erro:

I/O ERROR 32

oq estou fazendo errado?