Fórum Identificar a Tecla Presionada. #339727

Este procedimento nao funciona !

Esta Linha de comando:
Digitos := Length(edtDescontoServicos.Text);
Sempre retorna 0(Zero).

OBS: O procedimento tem que ser no evento OnChange, que vem antes do OnkeyPrees.

procedure TfrmOS.edtPecasDescontosChange(Sender: TObject);
var
Digitos, I : Integer;
begin
Digitos := Length(edtDescontoServicos.Text);
if Tecla VK_CONTROL 53
while I <= Digitos do
begin
if Copy(edtDescontoServicos.Text,I,1) = ´¬´ then
begin
Application.MessageBox(´¬ pressionada´,´ow´,MB_OK+MB_ICONINFORMATION);
Abort;
end;
I := I + 1;
end;

Obrigado pela atenção.