Hi,
probier doch mal nachfolgendes aus:

Code:
      ### Zum Sende der Daten ###
      procedure SendGPSMessage(GPSMessage: String);
        var BytesWritten: Cardinal;
      begin
        if not WriteFile(ComFile, GPSMessage[1], Length(GPSMessage), BytesWritten, Nil) then
          ShowMessage('Error occured while transmitting GPS-Data');
        if not(BytesWritten = Length(GPSMessage)) then
          ShowMessage('Error occured while transmitting GPS-Data');

      end;
Bei WriteFile muss der Offset 1 vom String, also GPSMessage[1] zur Referenzierung übergebn werden.