怎么把发送到com口的代码，改为发到usb口

如何把发送到com口的代码，改为发到usb口。

var
PrnFileName:TextFile;
begin
Assignfile(PrnFileName,'com1');
    Rewrite(PrnFileName);
    write(PRNFileName,chr(12));        
    write(PRNFileName,chr(27)+chr(81)+chr(65)+‘9999’+chR(13));       
    CloseFile(PRNFileName);
end;
上面是一段发往com口字符的代码，
怎样改动？可以发到usb口呢，就是控制顾客显示屏的代码。
如果把Assignfile(PrnFileName,'com1')改为Assignfile(PrnFileName,'usb00')行不通。
------解决方案--------------------
要看你USB是什么设备类型，如果是HID设备类，可以用HIDKomponente这个控件。
------解决方案--------------------

procedure TForm1.Button1Click(Sender: TObject);

var

  f : TextFile;

  i : Integer;

begin

  AssignPrn(f);

  Rewrite(f);

  Printer.Canvas.Font.Name := '宋体';

  Printer.Canvas.Font.Size := 8;

  for i := 0 to Memo1.Lines.Count - 1 do

    Writeln(f,memo1.Lines[i]);

  CloseFile(f);

end;

------解决方案--------------------
看看U口设备的SDK
------解决方案--------------------
USB口如果可以这么乱发，企不是要乱套了，要知道 U 口的设备种类太多了，这么搞绝对是不允许的。