Чтение и распознавание sms в Delphi

[MoZart.Element]

Добрый день, коллеги!

Хочу сказать сразу, что с Дельфи последний раз общался ещё в институте. Однако, нужда заставила вспоминать.
Суть задачи:
Есть USB-модем. На данный модем время от времени приходят смс-ки.
Нужно, чтобы по приходу смс программа "понимала", что смс пришла, читала только что полученную смс, вычленяла из текста нужную информацию, а именно 4-х значный код, записывала этот код в массив и удаляла только что прочитанную смс. Можно то-же самое реализовать по таймеру периодически - не принципиально.


Посмотрел много примеров, прочитал много литературы, но результат один - у меня это сделать не получается.
Что такое АТ-команды я знаю. Они проходят нормально. Проблема именно в чтении ответов.

Я прошу именно помочь. То что я не блещу знаниями в данной области прошу не обсуждать - это и так понятно.
Я не сплю ночами уже больше месяца и порядком устал.

Вот одно из моих последних творений - не судите строго.

procedure TForm1.ReadSMS(AComPort: integer);
var
  hFile                 : THandle;
  AStr, ASS          : String;
  G_Len, CntRead  : DWORD;
  LWrited             : Cardinal;
begin
  hFile := Windows.CreateFile(PChar('\\.\COM' + IntToStr(AComPort)), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
  if (hFile <> INVALID_HANDLE_VALUE) then
  begin
    try
      PurgeComm(hFile, PURGE_TXCLEAR or PURGE_RXCLEAR);
      sleep(200);
      AStr  := 'AT+CMGF=1' + #$D#$A;
      WriteFile(hFile, PAnsiChar(AStr)^, Length(AStr), LWrited, nil);
      sleep(200);
      PurgeComm(hFile, PURGE_TXCLEAR or PURGE_RXCLEAR);
      AStr  := 'AT+CMGR=4' + #$D#$A;
      WriteFile(hFile, PAnsiChar(AStr)^, Length(AStr), LWrited, nil);
      sleep(200);
      G_Len := GetFileSize(hFile, nil);
      SetLength(ASS, G_Len);
      ReadFile(hFile, Pointer(ASS)^, G_Len, CntRead, nil);
    finally
      Form1.Memo1.Text := ASS;
      Windows.CloseHandle(hFile);
     end;
  end;
end;

В текстовое поле выводится пустая строка.

Как это сделать ПРАВИЛЬНО?

[WinCoder]

Есть USB-модем

Какой, угадайте сами.

Я не сплю ночами уже больше месяца и порядком устал.

Вместо того, чтоб купить готовый код?

[Slym]

http://www.programmersforum.ru/showthread.php?t=247072