uses
  MSCommLib_TLB;
var  MSComm1: TMSComm;
begin
MSCOMM1.CommPort:=1;  <----此行執行會錯
if Mscomm1.PortOpen=true then Mscomm1.PortOpen:=false ;
MSCOMM1.Settings:='9600,E,7,1';
end;

uses
  MSCommLib_TLB;    var  
 MSComm1: TMSComm;TMSComm應該是用來實作介面的物件吧
begin
  
  MSComm1 := TMSComm.Create;
  try
    MSCOMM1.CommPort:=1;  
    if Mscomm1.PortOpen=true then Mscomm1.PortOpen:=false ;
    MSCOMM1.Settings:='9600,E,7,1';
  finally
    FreeAndNil(MSCOMM1);
  end;
  
end;    var  
 Intf: IMSComm;
                 假設TMSComm是用來實作IMSComm介面的物件,
                 
               
begin
  
  Intf := 取得IMSComm介面;
  if Intf <> nil then
    try
      Intf.CommPort:=1;  
      if Intf.PortOpen=true then Intf.PortOpen:=false ;
      Intf.Settings:='9600,E,7,1';
    finally
      Intf := nil;
    end;
  
end;    如何取得介面端看你的Automation Server 的形式.    例如:
  Intf := TMSComm.Create;  //COM Object
  Intf := CoMSComm.Create; //Co-Class