Hallo und herzlich Willkommen im Forum!
Vielleicht solltest Du mal die gesamte Prozeudr posten, denn so kann da auch cnihts gehen, dazu kommt das ich so an die 10-15 Compilerfehler habe.
Um ganz sicher zu sein ob der ComPort auch offen ist, kannst Du es ja extra prüfen.
if ComPort1.Connected then begin end;
Grüsse, Daniel
