Mask Edit para CPF, onde errei?

Vejam esta rotina para validar o CPF..., queria que ele valida-se o CPF no momento em que digito o último digito, mas aqui ele está validando no momento em que eu digito o primeiro digito, onde errei?

procedure TForm1.MECPFChange(Sender: TObject);
var
sRet : String;
begin
sRet := ValidCPF(MECPF.Text);
if sRet = ´´ then
MessageDlg(´CPF Válido´,mtInformation,[mbOk],0)
else
MessageDlg(´CPF Inválido. Valida com ´ + #13 + sRet,mtWarning,[mbOk],0);
MECPF.SelectAll
end;