在朋友的帮助下我写的串口通讯程序如下，可出现了问题，那位高人可以帮我呀，都贴了二天了。送分，还送一套串口监测程序。 (0分)

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption:=' 笨波' ;
MSComm1.InBufferCount:=0;
MSComm1.InputLen:=0;
MSComm1.RThreshold:=1;
MSComm1.Settings:='1200,n,8,1';
//,n,"(无校验)或",o,"(奇校验)或",e,"(偶校验)
//,m,"(校验位恒定为1)!
//,s,"(校验位恒定为0)!
MSComm1.CommPort:=1;
MSComm1.DTREnable:=true;
MSComm1.RTSEnable:=true;
MSComm1.PortOpen:=true;
Memo2.text:='';
Memo1.text:='';
ComboBox1.text:='1200,e,8,1';
ComboBox1.Items.Insert(0,'1200,e,8,1');
ComboBox1.Items.Insert(1,'2400,e,8,1');
ComboBox1.Items.Insert(2,'4800,e,8,1');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s,datastr:string;
begin
s:=memo1.text;
for i:=0 to (length(s) div 2)-1do
begin
datastr:=datastr+chr(strtoint('$'+ copy(s,2*i+1,2)));
end;
begin
MSComm1.Settings:=ComboBox1.text;
MSComm1.output:=datastr;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if MSComm1.PortOpen=true then
MSComm1.PortOpen:=false;
close();
end;

procedure TForm1.MSComm1Comm(Sender: TObject);
var
recstr:Olevariant;
begin
MSComm1.Settings:=ComboBox1.text;
if Mscomm1.CommEvent=comEvReceive then
begin
sleep(350);
recstr:=MSComm1.input;
Memo2.text:=memo2.text+recstr;
//如何将接收到的字符还原为16进制数据的，用了（CAPTION=ITNTOHEX（ORD（‘A’），2）好象不行吗。
end;

end;
procedure TForm1.Formdestroy(Sender: TObject);
begin
if MSComm1.PortOpen=true then
MSComm1.PortOpen:=false;
end;

end.
通过监测器我发现第一个问题是：当MEMO1中有如下数据时会出错，F32C（十六进制），或2D3C（十六进制）等等，即第I个字符要和第2*I+1个相同，
要么都是字母，要么都是数字。当然MEMO1中必须是十六进制数。
第二个就是我通过监测器看到有数据返回了，可我的MEMO2中却没有接到，怎么回事，我写的不对吗，好象不是吧。如果改在我我基础上如何改啊。

procedure TForm1.MSComm1Comm(Sender: TObject);
var
recstr:string;
begin
MSComm1.Settings:=ComboBox1.text;
if Mscomm1.CommEvent=comEvReceive then
begin
sleep(350);
recstr:=MSComm1.input;
Memo2.text:=memo2.text+IntToHex(Ord(recstr[1]), 2) ;
//如何将接收到的字符还原为16进制数据的，用了（CAPTION=ITNTOHEX（ORD（‘A’），2）好象不行吗。
end;

喂，小子，你采用了我的方法（你的上一个问题SLEEP（300）），怎么分没给我？：（

老兄不是给你加了30分吗。没收到吗，一共五个人，你的分最高呀。

接受答案了.