fix(serial): ноль — законный дескриптор, а имя порта нормализуем целиком

Два замечания по обёртке, оба верные.

1. SerValid считал ноль невалидным на всех платформах. На Unix дескриптор 0 —
   обычный номер: если стандартный ввод закрыт (демон, запуск из службы),
   fpOpen отдаст именно его. Порт при этом объявлялся неоткрытым И оставался
   незакрытым — SerClose смотрит на ту же проверку. Относительно прежней
   unix-проверки `h < 0` это была регрессия. Теперь признак неудачи ровно один
   и на всех платформах — SER_INVALID_HANDLE; ноль, которым RTL под Windows
   сообщает об отказе, переводится в него внутри SerOpen (как и было).

2. SerWinDeviceName обрезала пробелы только по пути COM10+. Для ' COM3 ' и
   ' \\.\COM12 ' возвращалось исходное имя с пробелами, а CreateFile их не
   прощает: оператор, скопировавший имя с хвостовым пробелом, получал «не
   удалось открыть» на ровном месте. Теперь опознанное имя возвращается
   нормализованным; неопознанное (путь на Unix, COM3: с двоеточием) — по-прежнему
   без единого изменения, трогать чужой путь мы не вправе.

Стенд: 52 проверки. Новая часть C2 закрывает стандартный ввод, открывает порт
как дескриптор 0 и гоняет через него байты — ★негативный контроль: с прежним
`and (Handle <> 0)` она падает двумя проверками. Плюс нормализация пробелов у
короткого имени и у полной формы.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01Bkwwyj7xVRrqnSVEseTRfV

SerialPort.pas

@@ -398,10 +398,16 @@ var
   S: string;
   i, N: Integer;
 begin
+  // ★Имя, которое не опознано как COM-порт, возвращаем БЕЗ изменений: это может
+  // быть путь, и обрезать у него что-либо мы не вправе. А вот опознанное имя
+  // отдаём нормализованным — пробелы вокруг ' COM3 ' CreateFile не прощает, и
+  // оператор, скопировавший имя из документации с хвостовым пробелом, получал
+  // бы «не удалось открыть» на ровном месте.
   Result := Name;
   S := Trim(Name);
-  // Уже полная форма, или это вовсе не COM-порт (например, путь на Unix).
-  if (Length(S) < 4) or (Copy(S, 1, 4) = '\\.\') then Exit;
+  if Length(S) < 4 then Exit;
+  // Уже полная форма — только снимаем пробелы.
+  if Copy(S, 1, 4) = '\\.\' then Exit(S);
   if UpperCase(Copy(S, 1, 3)) <> 'COM' then Exit;
   N := 0;
   for i := 4 to Length(S) do
@@ -410,16 +416,22 @@ begin
     N := N * 10 + (Ord(S[i]) - Ord('0'));
     if N > 999 then Exit;
   end;
-  // COM1..COM9 открываются и коротким именем — оставляем как ввёл оператор,
-  // чтобы не менять поведение там, где оно и так работало.
-  if N >= 10 then Result := '\\.\' + S;
+  // COM1..COM9 открываются и коротким именем — префикс им не нужен.
+  if N >= 10 then
+    Result := '\\.\' + S
+  else
+    Result := S;
 end;
 
 function SerValid(Handle: TSerialHandle): Boolean;
 begin
-  // Ноль сюда попадает от RTL под Windows (там это признак неудачи) и не может
-  // быть настоящим портом на Unix: дескриптор 0 занят стандартным вводом.
-  Result := (Handle <> SER_INVALID_HANDLE) and (Handle <> 0);
+  // ★Ноль — ЗАКОННЫЙ дескриптор на Unix: если стандартный ввод закрыт (демон,
+  // запуск из службы), fpOpen отдаст именно 0, и объявлять такой порт ошибкой
+  // нельзя — он не только не заработает, но и не закроется, потому что
+  // SerClose тоже смотрит сюда. Признак неудачи ровно один и на всех
+  // платформах: SER_INVALID_HANDLE. Ноль, который RTL под Windows отдаёт при
+  // отказе, переводится в него внутри SerOpen.
+  Result := Handle <> SER_INVALID_HANDLE;
 end;
 
 function SerDefaultPortName(Index: Integer): string;