Apresentando mensagem em consulta SQL?

Possuo a Seguinte consulta SQL:


LBMensagem.Caption:=´Consulta em Processo!´;
QueConsulta.SQL.Active:=False;
QueConsulta.SQL.Clear;
QueConsulta.SQL.Add(´Select Codigo, Nome ... From Tab....... Where ..´);
QueConsulta.Params[0].AsString:=EdCodigo.Text;
QueConsulta.SQL.Active:=True;
QueConsulta.ExecSQL;
LbMensagem.Caption:=´´;

Deveria quando realiza a consulta, aparecer o texto no Label, mas não está aparecendo, alguem ai sabe como forçar o aparecimento da mensagem para que o usuário saiba que a consulta está em processo?


Grato pela Ajuda :!: