GSM модем TCommPortDriver

пишу программу для работы с gsm модемом , с помощью компонента TCommPortDriver , Возникла проблема при приёме ответа модема(вместо текста приходит что то не понятное)
вот мой код

PHP:

procedure TForm1.Button1Click(Sender: TObject);
begin

with CommPortDriver1 do begin
ComPort:= TComPortNumber(pnCOM01);
Disconnect;
if not Connect then begin
ShowMessage('ERROR');
exit;
 end;
CommPortDriver1.SendString('AT' + #13#10);
 end;
end;


через снифер com порта приходит что ок
а программа выдаёт (.Â…jÕRÿ)

вот приём

PHP:

procedure TForm1.CommPortDriver1ReceiveData(Sender: TObject;
  DataPtr: Pointer; DataSize: Integer);

var 
s : string;
begin

s:= StringOfChar(' ', DataSize);
Move(DataPtr^, PChar(s)^, DataSize);
MEMO1.Lines.Add(s);
end;



как переделать чтоб в Memo был результат OK