[delphi.com.ar]

Muchas son las formas de hacerlo...

Código Delphi [-]
var
  FS,
  LP: TFileStream;
begin
  FS := TFileStream.Create('c:\Fede.txt', fmOpenRead);
  try
    LP := TFileStream.Create('LPT1', fmOpenWrite);
    try
      LP.CopyFrom(FS, FS.Size);
    finally
      LP.Free;
    end;
  finally
    FS.Free;
  end;
end;