argh!! Ich bastel hier 2 Tage lang rum und wundere mich warum das nicht funktioniert und dabei lag es doch an diesem Zeilen umbruch Bild   :

Code:
     An den übergebenen String einen Zeilenumbruch (#13 + #10) hängen
   }
  s := s  + #13 + #10;
  WriteFile(ComFile, s[1], Length(s), BytesWritten, nil);
  s := '';
Wenn man die 13 und die 10 weg nimmt gehts gar nicht mehr, mit denen gehts nur einmal und wenn man die 10 weg macht und die 13 da lässt funktionierts Bild  
Juhu, jetzt kann ich endlich weiter machen und malwieder meine eigene Frage beantworten lol.