Hola Neftali.
La parte de activar las mayusculas funciona muy bien pero esta otra parte de codigo:
Código:
if not Odd(GetAsyncKeyState( VK_CAPITAL )) then begin
MessageDlg('Activa', mtInformation, [mbOK], 0);
end
else begin
MessageDlg('Desacivada', mtInformation, [mbOK], 0);
end;
Solo entra en la condicion en la parte de activa tanto si estan activadas las mayusculas como si no. Sabes xq?