Rede - usar o modem para efetuar ligacoes

// Usar o Modem para efetuar ligacoes

function tapiRequestMakeCall(lpszDestAddress : LPCSTR; lpszAppName : LPCSTR; lpszCalledParty : LPCSTR;

                            lpszComment : LPCSTR) : LongInt; stdcall; external 'tapi32.dll';

implementation

{$R *.DFM}

function DialPhone(const PhoneNbr, CalledParty, Comment: string): Boolean;

Begin

  Result := tapiRequestMakeCall(PChar(PhoneNbr), PChar(Application.Title), PChar(CalledParty),PChar(Comment)) = 0;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  DialPhone('555-1234','José da Silva','Teste');

end;