Компонент CPort ?

[z-wer]

Извиняюсь, что поднял тему еще раз.
По форуму поискал, но нигде решения не нашел.
Собственно интересует опрос состояния DSR.
На форуме разработчиков тоже ответа не нашел.
Примеры пробовал гуглить, но все пока безрезультатно.

Может кто работал с этим компонентом, подскажите пож.

[z-wer]

решение проблемы до умопомрачения простое

function TForm1.DSRControl: Boolean;
begin
with CPort do
if (csDSR in Signals) then
Result := True
else
Result := False;
end;

может кому еще пригодится