Как работать с модемом?

Каким образом управлять модемом из программы?

var
    Port:Text;
begin
  Assign(Port,'COM2');
  Rewrite(Port);
  WriteLn(Port,'ATZ');
  Close(Port);
End.

Для ноpмальной pаботы с модемом, с протоколами приема и передачи файлов и т.п. пpидется использовать либо int 14h, либо интеpфейс fossil, либо, что проще - взять готовую библиотеку Asynch Professional.