Fórum Delphi Erro de if/vetor. #595226

Estou com problemas no validar os campos, a função "ValidarCampos" vai validar se as caixinhas estão vazias, porém logo abaixo
Tem "lachou := AchouCodigoVetor;" e o problema que ao invés de aparecer apenas o erro do "ValidarCampos" aparece também o erro " ERRO! Já existe um aluno cadastrado com esse código" junto.


if ValidarCampos then
begin
showmessage('ERRO! Preencha todos os campos!')
end else


lachou := AchouCodigoVetor;
if lachou then
begin
showmessage('ERRO! Já existe um aluno cadastrado com esse código')
end
else
begin
i := 1;
lachou := false;
while (i<=30) do
begin

if (vetaluno[i].nome = '') then
begin
lachou := true;
break;
end;
i := i+1;
end;
if lachou then
begin

//Adiciona no vetor
vetaluno[i].codigo := strtoint(codigo.Text);
vetaluno[i].nome := nome.Text;
vetaluno[i].cpf := cpf.Text;
vetaluno[i].email := email.Text;
vetaluno[i].celular := celular.Text;
vetaluno[i].idade := strtoint(idade.Text);

listar.Click;

end;
end;
end;