关于文件的读取(50)

请帮忙分析一下，我有一个35K的数据文件，现在需要发送到端口进行打印，有以下三段程序，出现了三个不同的效果：1、Winexec('Command.com /C copy C:/5530SC prn',SW_Hide);------>>>>此处运行后，发送到端口的数据文件大小仅为13.2K2、var TF : TextFile;
STR : String;……………… AssignFile(TF,'5530SC');
Reset(TF);
while Not Eof(TF)do
begin
Readln(TF,STR);
end;
CloseFile(TF);………………（这里是发送端口的程序段，略……）------>>>>此处运行后，发送端口的数据文件大小为8.3K(由于读取的STR字符串为8.3K)3、建立一个5530.bat文件（copy C:/5530SC prn），然后在delphi中 Winexec('5530.bat',SW_Show);------>>>>此处运行后，发送端口的数据文件大小就是35K（是正常的）请问为什么会出现这种现象（望能详细解释一下）？？？如何解决？？？

2: while Not Eof(TF)do
begin
Readln(TF,STR);
// 只保留最后一行内容在STR中。 end;

2、var TF : TextFile;
STR : String;
s: string;……………… AssignFile(TF,'5530SC');
Reset(TF);
while Not Eof(TF)do
begin
Readln(TF,STR);
s := s + STR;
end;
CloseFile(TF);print s;