Como saber se o modem esta chamando ou ocupado?

Fiz um discador mas falta esta informação.
Alguém sabe como identificar se o modem esta chamando o número
Solicitado ou o número chamado deu ocupado.

Muito obrigado a todos.
Edvaldo


Ai vai parte do código que estou usando em Delphi 5

//Abre a porta de comunicação
hCommFile :=CreateFile(PChar(ModemPorta), GENERIC_WRITE,
0, // não compartilhado
nil, // sem segurança
OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);

//Porta Fechada
if hCommFile=INVALID_HANDLE_VALUE then
begin
Application.MessageBox(´ERRO! Impossível Efetuar Discagem, Verifique As Configurações do Usuário´,´´,mb_OK+mb_IconError);
CloseHandle(hCommFile);
Exit;
end;

// Porta Aberta
if hCommFile<>INVALID_HANDLE_VALUE then
begin
//Cria a string de comando
NumFone:=´ATD´+TomPulso+CentralFone+NumFone+#1310;
//Envia a String de Comando
NumberWritten:=0;

Status:=WriteFile(hCommFile,PChar(NumFone)[0],Length(NumFone), NumberWritten, nil);

Application.MessageBox(´Discagem Sendo Efetuada... Retire o Telefone do Gancho, Aguarde Um Segundo e Clique OK´,´´,mb_OK+mb_IconInformation);

//Desconecta a ligação
WriteFile(hCommFile,´ATH´,5,NumberWritten,nil);
//Fecha a porta de comunicação
CloseHandle(hCommFile);
end;