请问怎样在DELPHI中实现拷贝文件到COM1口或LPT 口 (50分)

请问怎样在DELPHI中实现拷贝文件到COM1口或LPT 口
象以前的DOS样
;如: copy ttt.txt com1
; ; ;copy ttt.txt prn
; ; ;type tt1.txt com1
但不要用象DOS的批处理那样

并口的, 参考一下吧.

procedure TForm1.Button1Click(Sender: TObject);
var
; port, prnfile : File;
; buffer: array [1..128] of Char;
; read: Integer;
begin
; // Specify a file to print
; AssignFile(prnfile,'filetoprint');
; Reset(prnfile,1);
; // specify printer port
; AssignFile(port,'LPT1');
; Rewrite(port,1);
; repeat
; ; BlockRead(prnfile,buffer,SizeOf(buffer),read);
; ; BlockWrite(port,buffer,read);
; ; // Application.ProcessMessages;
; until eof(prnfile) or (read <> SizeOf(buffer));
; CloseFile(prnfile);
; CloseFile(port);
end;

谢谢tseug兄,经参考后调试成功!