Mudar página (texto) com sinal USB

[malepobox]

Olá pessoal.

 

Monto um formulário em Delphi com um Memo para ler arquivos txt.

 

O efeito que preciso é, quando clicar em um botão conectado à porta USB, com PIC16F628, o texto sobe tantas tantas linhas que coloquei em uma var "X".

 

Assim posso regular o que cabe na tela de acordo com o fonte do texto.

 

A parte de hardware posso fazer com PIC, acho que dá para fazer.

 

O problema é o código para no pic (16F628a) para quando um pino qualquer for para nível 0 (GND) o PIC envie um comando pela pórta USB para o Delphi mudar tantas linhas.

Então fica If pino x =0 then (envia comando para o Delphi.)

Não consegui fazer essa parte de rotina no PIC e o código no Delphi para subir a linhas na var do Delphi.

 

Agradeço a ajuda,

 

Abraços a todos