nö kein ding

Code:
OPTION CC2.0

Import "IIC_LCD_DRIVE.BAS"     'LCD-Treiber

Baud R9600
LCD_INIT()
Line1(6)
LCD_WRITE(20h, 53h)
LCD_WRITE(20h, 79h)
LCD_WRITE(20h, 73h)
LCD_WRITE(20h, 74h)
LCD_WRITE(20h, 65h)
LCD_WRITE(20h, 6Dh)
Line2(2)
LCD_WRITE(20h, 49h)
LCD_WRITE(20h, 6Eh)
LCD_WRITE(20h, 69h)
LCD_WRITE(20h, 74h)
LCD_WRITE(20h, 69h)
LCD_WRITE(20h, 61h)
LCD_WRITE(20h, 6Ch)
LCD_WRITE(20h, 69h)
LCD_WRITE(20h, 73h)
LCD_WRITE(20h, 61h)
LCD_WRITE(20h, 74h)
LCD_WRITE(20h, 69h)
LCD_WRITE(20h, 6Fh)
LCD_WRITE(20h, 6Eh)
Print "Sytem initalisert, bitte warten...."
pause 96
LCD_CLR()
Print "Daten können jetzt gesendet werde"

define data as byte
define counter as byte

counter = 0

do
  if rxd then
    if counter < 32 then
'      LCD_CLR()
'      counter = 0
'    end if   
    get data
    LCD_WRITE(20h, Data)
    Counter = counter + 1
    end if
  end if
loop until 1=0

'-------- Print Hex-Value ----------
function WriteHexDigit(Digit as Byte)
  if digit > 9 then
    LCD_WRITE(20h, (55 + digit))
  else
    LCD_WRITE(20h, (48 + digit))
  end if
end function

declare function PrintHex(Value as Byte)
function PrintHex(Value as Byte)
  WriteHexDigit(Value / 10h)
  WriteHexDigit(Value mod 10h)
end function
ich hoffe aml das hilft weiter aso die lcd_write function ist aus dem iic_lcd_treiber von conrad brauchst du den auch noch?

ich vermute nur das problem in meine delphi Quelltext bei den Eistellungen der seriellen Schnittstelle, denn senden von der CC ans Hyperterminal oder ans Worbench Terminal funzt bestens.