ich mache den quelltext gerade nochmal ein wenig übersichtlicher, sieht ja grauenhaft aus was ich da verzapft hab

Code:
### Zum Öffnen der Verbindung ####
procedure TForm1.Starten1Click(Sender: TObject);
var dcb: TDCB;
begin
  BuildCommDCB('Com3: baud=9600 parity=N data=8 stop=1', dcb);
  Com3 := CreateFile(PChar('COM3'), Generic_Read or Generic_Write, 0, nil, Open_Existing, File_Attribute_Normal, 0);
end;

### Zum Sende der Daten ###
procedure SendGPSMessage(GPSMessage: String);
var BytesWritten: Cardinal;
begin
  WriteFile(Com3, GPSMessage, Length(GPSMessage), BytesWritten, nil);
  if not(BytesWritten = Length(GPSMessage))
    then ShowMessage('Error occured while transmitting GPS-Data');
end;
so jetzt ist nur noch das nötige drin sieht ein wenig übersichtlicher aus.

Auf der C-Control lese ich das ganz im Moment übrigens mit der Gunktion aus:

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