[Resolvido] Contando caracteres de um Edit

Bom dia.

Por favor, me ajudem.

Tenho um edit em um formulário que preciso contar seus caracteres.

Desta forma, criei a seguinte funcao:

function QtdCaracteres(Edit:String): integer;
begin

 Result := Length(Edit);
end;

Eu preciso que no Evento OnExit do Edit, seja chamada a função de modo que se a quantidade de caracteres for menor do que 10 (por exemplo), o sistema me retorne:

Showmessage('Insuficiente');
Edit1.SetFocus;

O problema é que não estou conseguindo um meio de cahamar esta função e testar o seu retorno.

Alguém poderia me ajudar?

Abraços!