USB端口，可以当COM口操作的。直接用COM控件往端口写数据就行了。
我用的是SPcomm控件。
var
  tmpStr: string;
  esc: TOutBufPassThrough;
begin
  cm1.CommName := edt1.Text;
  cm1.StartComm;
  begin
    cm1.WriteCommData(PChar(tmpStr), Length(tmpStr));
    cm1.WriteCommData(#13#10, 2); //加了这行，才会打印
  end;
  Sleep(500);
  cm1.StopComm;
end;