procedure TDM_List.CommPortDriverReceiveData(Sender: TObject; DataPtr: Pointer;
  DataSize: Cardinal);
  var i:integer;
  s:string;
  ss:string;
  begin
    s:='';
    For i:=0 to DataSize-1 do
     s:=s+(PAnsiChar (DataPtr)[i]);
    ss:=ss+s;

    _pEvent.ExternalEvent('Laurent','ComPort',ss);
  end;