daten von gps-maus über Com-Port auslesen

[xy124]

mit Dialect WinCE mache ich das für meinen ppc so:

Delphi-Quellcode:

b1.onclick =func() 
   l1.text= myport.read()//(l1=label)

   
   x=0//breite
   y=0//länge
   xmin=0
   ymin=0
   komma=0
   jo=0
   for i=1to len(l1.text)//in delphi heißt das length()
      u= l1.text[i]
      if jo=1
         if u="," 
            komma=komma+1
         else
            if (komma==2) and x=0 then 
               x=int(l1.text[i+1],l1.text[i+2])
               xmin=l1.text[i+3]l1.text[i+4],l1.text[i+5],l1.text[i+6],l1.text[i+7],l1.text[i+8],l1.text[i+9],l1.text[i+10]

               
            endif


            if (komma==4) and (y=0) //längengrad
               y=int(l1.text[i+1],l1.text[i+2],l1.text[i+3])

               ymin=l1.text[i+4],l1.text[i+5],l1.text[i+6],l1.text[i+7],l1.text[i+8],l1.text[i+9],l1.text[i+10],l1.text[i+11]

            endif
         endif
         
      endif
      if (u=="$") and (l1.text[i+1]=="G")   and (l1.text[i+1]=="P") and (l1.text[i+1]=="G") and (l1.text[i+1]=="G") and (l1.text[i+1]=="A")
         jo=1
      endif

   endfor
   
   l1.text=str$(y) + "°"+str$(ymin) + "min" + str$(x) + "°" + str$(xmin) + "min" //str$^=in delphi inttostr/floattostr
endfunc 
myport=system.comport("COM5:",{baud:4800})
gui.enter()

^^problem ist hierbei, das das Dialectprogramm zu langsam auf dem ppc ist. deswegen will ich das problem eigentlich mit Lazarus lösen, ich finde aber kein Komponente zum Comport-auslesen der auf lazarus und dem ppc geht.