本人遇到了一个问题，mscomm串口通信的，请高手赐教

procedure TtFrmMain.tmrTimeTimer(Sender: TObject);
var TData,RData:string   ;
    arrayR,arrayT:array of string;
    i:Integer;begin
  TData:=tEdtSend.text;
  setlength(arrayT,Length(TData));
  setlength(arrayR,Length(RData));  for i := 0 to Length(TData)-1 do
  begin
    arrayT[i] :=TData ;
    tCommComm.Output :=arrayT[i] ;
  end;
  tMemoResult.Lines.Add('发送：'+ TData  );
  tCommComm.OutBufferCount:=0;
  for i := 0 to Length(RData )-1 do
  begin
    arrayR[i]  := tCommComm .Input;
    RData:=arrayR[i] ;
  end;
  tCommComm.InputLen :=0;
  tMemoResult.Lines.Add('接收：'+RData);
  tCommComm.InBufferCount:=0;
 end;
这个是我用mscomm控件开发的一个串口通信的一个timer过程，我的目的是想要吧tedtsend的字符串以16进制的方式发送和接收，请高手赐教我该怎么完善