Fórum limpando o caption do label no delphi #532782

bom dia

tenho uma tela de login e no lugar de um showmessage para exibir mensagens de usuário e senha inválidos e campos vazios eu gostaria de colocar em um label (estou usando o label 3, 4 e 5 para exibir )como segue o código

procedure TFrmLogin.BitBtnEntrarClick(Sender: TObject);
begin
QueryLoginUser.Open;
if ((QueryLoginUser.Locate('login', EditUsuario.Text, [])) and (QueryLoginUser.Locate('senha', EditSenha.Text, []))) then
begin
GuardaLogin:= EditUsuario.Text;
QueryUserLogado.Insert;
QueryUserLogadoCOD_USUARIO.Value:= QueryLoginUserCODIGO.Value;
QueryUserLogadoSUCESSO.Value:= 'SIM';
QueryUserLogado.Post;
QueryUserLogado.Close();
ModalResult:= mrOk;
end

else // testa se os campos estão vazios
if (EditUsuario.Text = '') or (EditSenha.Text= '') then
begin
Label4.Caption:= 'Campo de usuário ou senha vazio !'; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
EditUsuario.SetFocus;
Inc(tentativasVazio); //acumula valor inteiro
end

else // testa se o conteúdo dos campos usuário e senha são válidos
begin
inc (tentativasValidas); //acumula um valor inteiro
Label3.Caption:='Usuario ou senha inválido!'; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
GuardaLogin:= Edit1.Text;
QueryUserLogado.Insert;
QueryUserLogadoSUCESSO.Value:= 'NÃO';
QueryUserLogadoCOD_USUARIO.Value:= QueryLoginUserCODIGO.Value;
QueryUserLogado.Post;
EditSenha.Clear;
EditUsuario.SetFocus;

end;
// as duas variáveis acumulam um valor inteiro até 3
if (tentativasVazio = 3)or(tentativasValidas = 3) then
begin
label5 :='Tentativas de login inválidas. Essa aplicação será encerrada!'; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Application.Terminate;
end;
end;



o detalhe é que preciso apagar a mensagem quando o setfocus fizer o seu papel e enviar o foco para o editUsuario