Hook Roman Con ECO ECO ECO!!

[[marceloalegre]]

Buenas tardes a todos:

Bueno hoy estaba muy divertido en mi casa, Mar del Plata, hacia calor asi que me decidi a entretenerme de la mejor forma, cual!? abri la ventana y me puse a programar algunos trabajillos retrasados...

Entonces para algo que estoy desarrollando, se me ocurrio el usar el hook de roman y hacer algo simple " que todas las teclas esten bloqueadas, pero pasar las letras y nros a un edit.. algo muy simple"..
he de aqui que hice lo que me pareció mas logico... un perform al edit.. pero bueno resulta que tiene Ecoooo (sale 2 veces) aparte lo mas loco de todo es que si debugeo un poco lento no sale con eco, sino ejecuta 2 veces el envio de la tecla... bueno he tratado de hacer varias cosas y nada me sirvio, asi que les muestro mi pequeño problema a ver si pueden darme una mano, quizas mi falta de conocimientos de delphi se estan poniendo hoy a la orden del dia..

form1.Edit1.Perform(WM_CHAR,VKCODE,0);

y les dejo mi fuente de la prueba a ver si alguien me recomienda algun cambio..

Como siempre, de antemano, MIL GRACIAS a todos!