под 9х работает,под ХР - надо пробывать....
procedure TForm1.Button1Click(Sender: TObject);
Var COM2:TextFile;
begin
AssignFile(com2,'COM2'); // 'COM2' - порт на котором висит модем
Rewrite(Com2); // открываем порт на запись
Close(com2); // освобождаем порт
end;
_________
сразу говорю,это некрасиво,но работает
