Fórum Delphi x VB ( Por favor galera me ajudem pq estou perdido! ) #178757

É o seguinte, tenho que fazer um programa que precisa se comunicar com um microterminal, não estou conseguindo fazer em Delphi, o fabricante só me mandou um exemplo de como funciona no Visual Basic , o problema é que não estou conseguindo traduzir para o Delphi se alguém souber por favor me ajude, estou usando o componente TcomPort.

O Código em VB é :

Private Sub CmdEscreve_Click()
Dim chor As String

chor = 105 ´ xor de todos os camandos necessarios para escrita, ´CSUM´
For i = 1 To Len(TxtDisplay.Text)
chor = chor Xor Asc(Mid(TxtDisplay, i, i)) ´inclui os caracteres da mansagem no ´CSUM´
Next i

Comm1.Output = Chr$(2) & Chr$(90) & Chr$(50) & TxtDisplay.Text & Chr$(3) & Chr$(chor)
´ Envia mansagem
End Sub


Eu reparei que ele escreve os códigos para enviar em Decimal e deve converter na hora para Hexa que é os códigos que o teclado entende.

Ae galera por favor um luz aqui pra mim..

Valeu mesmo..