Ajuda com Procedimento envolvendo componente Timer

Olá pessoal, sou um novato programador Delphi, estou usando a versão Xe2.
Estou precisando do auxilio de vocês em uma parte de minha aplicação!

Vamos aos detalhes:

1º - Tenho um Timer denominado tmrPrincipal que a cada 5 segundos escreve em 2 label diferentes, lblNota e lblPerctDaNota.

P: O que ele escreve ?
R: Ele escreve o conteudo de uma função que esta em uma outra unit, a Função é:

*****************************************************
Function GetNota(Numero : Integer) : String;
Var
Xitem : TStrings;
Myst : String;
Begin
Xitem := TStringList.Create;
Xitem.LoadFromFile(TempDir + avaliação.txt);
Myst := Xitem.Strings[Numero];
Result := StringToOleStr(Myst);
Xitem.Free;
End;
End;
*****************************************************

Veja meu Timer Funcionando:

*****************************************************
Procedure TfrmAvaliacao.tmrPrincipal(Sender: TObject);
Begin
lblNota.Caption := Você recebeu nota: + GetFrase(0); // Nota Recebida
lblPerctDaNota.Caption := E obteve: + GetFrase(1) + % de aproveitamento!; // % da Nota
End;
End;
*****************************************************

Bom, ate este ponro a aplicação funciona que é uma beleza, surge agora meu problema,
preciso usar os dados que estão escritos no lbl%Nota para executar ações,

Exemplo:

Se o aluno tem % 80 então
mostre mensagem contendo nota

Eu consigo fazer isto tranquilamente, porem, como descrito anteriomente,
a cada 5 segundos a aplicação envia Nota e %daNota aos respectivos label,
e consequentemente ele manda 1 nova mensagem com o mesmo resultado,
quero que envie a mensagem apenas se mudar os resultados.

Quebrei cabeça de mais ja, gostaria de sugestão de como limpar os dados
e forma que ele não fique reenviando a mesma mensagem.
Acredito que seja simples, mas ja fritei a cabeça com isso ^^.