GPRS modem (RS 232)

[Виталь]

Всем, здравствуйте!
У меня такая проблема:
Написал программку для работы с модемом (RS-232).
Но она работает только в том случае если предварительно запустить какую-нибудь другую программу для работы с АТ командами (например Terminal.exe). Т.е. пока другая программа не "пробьёт Сом порт", моя "висит".
Вот код:

procedure open_modem;
var CommPort, PhoneCommandW, PhoneCommandR: string;NM:Cardinal;
begin
  CommPort := 'COM1';
  hCommFile := CreateFile(PChar(CommPort),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_ALWAYS,0,0);
  if hCommFile = INVALID_HANDLE_VALUE then
  begin
    ShowMessage('Unable to open ' + CommPort+' '+ IntToStr(GetLastError));
    exit;
  end;
  GetCommState(hCommFile, mode);
  Mode.BaudRate := 57600;
  Mode.ByteSize := 8;
  Mode.Parity := NOPARITY;
  Mode.StopBits := ONESTOPBIT;//нужен был для перезаписи в NT
  SetCommState(hCommFile, mode);
  NM:=1;
PhoneCommand := 'AT'+#13+#10  ;
if WriteFile(hCommFile,PhoneCommand,SizeOf(PhoneCommand),NM,nil) then ShowMessage('Error Write') else
if ReadFile(hCommFile,PhoneCommand,SizeOf(PhoneCommand),NM,nil) then ShowMessage('Error Read') else //Тут уже 
ShowMessage(PhoneCommand1); //"висит"; 'Error Read','Error
Write',PhoneCommand1 не было,//"висит" и всё
end;

Потом закрываю, запускаю Terminal.exe(так сказать "пробиваю" Сом порт) и всё работает, пока не перезегружу компьютер. Перезагрузил-и всё по-новой.
Может я как-то порт неправльно открываю.
Спасибо.

[Виталь]

В конце-это опечатка.
Извините.

[SERG1980]

Используйте нормальный компонент Сом порта и не будет проблем.
Можно этот попробовать

[Виталь]

Спасибо всё нормально заработало.

[Ash]

От TurboPower есть прекрасные компоненты-AsyncPro... Последнюю (во всех смыслах) версию (кажется максимум Delphi7) можно взять на sourceforge.net