[NumLock]

Код:

HCOM:=CreateFile('\\.\COM0', GENERIC_READ + GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
...
WriteFile(HCOM, buf, size, writed, nil);