Nur als Anreiz..
Eine Formatierung wäre nicht schlecht.
Und leere proceduren sind unnötig.
Da hier in FormCreate nichts geschieht kannst du diese auch direkt löschen.
Oder aber du packst das
SdpoSerial1.Device := 'COM6';
nach FormCreate
und löschst FormShow
gruss