Проблема с отправкой строки в com-порт. Delphi

[KopfSchuss]

Здравствуйте, столкнулся с такой проблемой. Мне нужно передать строку на ком-порт. Но на порт приходит всякая кракозябра, вместо той строки что я отправляю.

var
 Command: string;
 TempXml: TXMLDocument;
 root: IXMLNode;
 com_param: IXMLNode;
 dwWrite: DWORD;
 OverWrite: TOverlapped;
 ComReadThead: WaitComData;

 buf: Pchar;
 menu: tmenuitem;
 begin
  //messagebox(0, PAnsiChar((Sender as TMenuItem).Caption), 'com', MB_OK );
  menu:=(Sender as TMenuItem);
  Command:=menu.Hint;
  TempXml := TXMLDocument.Create(Application);
  TempXml.Active := true;
  form1.Caption:=command;
  TempXml.LoadFromFile(ExtractFilePath(Application.ExeName)+'command_library\'+Command+'.xml');

  
  root := TempXml.ChildNodes.Nodes['command'];//Получаем корень командного файла
  com_param:=root.ChildNodes.Nodes['title'];//Узнаем заголовок команды
  
  buf:=pchar(Command);
  OverWrite.hEvent := CreateEvent(nil, True, False, nil);
  WriteFile(hPort, buf, sizeof(buf), dwWrite, @OverWrite);
  Memo1.Text:=Memo1.Text+com_param.Text;
    form1.MemoSeparator;
  ComReadThead := WaitComData.Create(True);
  ComReadThead.FreeOnTerminate := True;
  ComReadThead.xml_file:=Command+'.xml';
  ComReadThead.Resume;
 end;

Поскольку меню создается динамически для каждой строковой команды, текст команды берется из свойства Hint вызвавшего обработчик меню.

Пожалуйста , скажите где у меня ошибка?

[Азамат Казанчев]

тебе строку послать надо или ат команды, в чем задача вообще?

[KopfSchuss]

Вообще, AT-команду. но я думал что АТ-команда это тоже строка.

[Азамат Казанчев]

посылай ат- команду, да и строку, по 1 символу(заранее переведеную в аски код, я так делал и работало

[KopfSchuss]

Спасибо, помогло

[Азамат Казанчев]

всегда пожалуйста, обращайся если что