function THICOM.InitCom(BaudRate, PortNo: Integer; Parity: Char; CommTimeOuts: TCommTimeouts): Boolean;
...
FileName := '\\.\Com' + Int2Str(PortNo); {имя файла}
...
Тем более, что просто прописать одно нужное значение - не прокатит, будет не тот номер, что ты задумал...