[Delphi] Работа с COM Port

Добрый день всем, кто может подсказать как обработать ответ от моего COM Порта. Подключение проходит успешно например, что бы отправить смс нужно отправить несколько AT Команд:

Code:

// Как я понимаю это PIN-Code, если он нужен :)
AT+CPIN=7256
OK // Ответ от COM Port
// Ставим телефон\модем в обычный режим Text (1 - text, 0 - pdu) - не уверен, но вроде бы оно
AT+CMGF=1
OK
// Отправляем обычную SMS-ку в текст режиме
AT+CMGS="+79101234567"
>test,test,testCTRL+Z
+CMGS 

Ответы вместо OK или ERROR приходят в виде японских символов ((

Как обработать ответ до читаемого вида, подскажите???
IDE : Rad 2010

Вот таким образом пишу в COM Port:

Code:

var
  BytesWritten: DWORD;
  s: string;
  d: array[1..1500] of Char;
  BytesRead: DWORD;
  i: Integer;
  Result: string;
begin
  try
    // Берём команду из Edit
    s := EATCom.Text + #13;
    // Записываем в порт
    WriteFile(ComFile, s[1], Length(s), BytesWritten, nil);
    Result := '';
    if not ReadFile(ComFile, d, SizeOf(d), BytesRead, nil) then
      begin
        MessageDlg('Ошибка чтения!', mtError, [mbOK], 0);
        Exit;
      end;
    Result := '';
    // Читаем ответ
    for I:=0 to BytesRead do
      begin
        Result := Result + d[I];
      end;
    // Выводим
    MLog.Lines.Append('Команда: ' + S);
    MLog.Lines.Append('Ответ: ' + Result);
    EATCom.Clear;
    EATCom.SetFocus;
  finally

  end;
end;

ScreenShot:

 

вот почитай http://habrahabr.ru/blogs/delphi/133085/#habracut

 

Спасибо, статья хорошая, но почему ответ всё время приходит кривой какой-то...что за кодировка ответа?!