Continuo con esto, he cambiado el codigo por este otro que encontre en un hilo del club; el truco es de trucomania.
Código Delphi
[-]
repeat
repeat
Application.ProcessMessages ;
if GetKeyState(VK_Escape) and 128 = 128 then
break;
until FileRead(HandlePuerto,Num,1)=1;
Application.ProcessMessages ;
if GetKeyState(VK_Escape) and 128 = 128 then
break;
until Num = Terminador;
Segun que funciona en los bucles, pero no, no me ha funcionado, es mas no logro entender la logica: GetKeyState regresa un smallint que es el equivalente de la tecla pulsada pero ¿que hace el AND 128 = 128?
Una manita...