public
F: TFileStream;//公共变量Procedure ThreadStart(); //一个socket客户端连进来请求下载
var
fileName:string
begin
 FileName:=EditFileName.Text;
 if FileName<>'' then
  begin
   F := TFileStream.Create(FileName,fmOpenRead); //打开文件
   ReadFile();
  end;
end;Procedure ReadFile();//读取文件
var
n:integer;
begin
if F.Position < F.Size then
 begin
   n := F.Size - F.Position;
    if n > 1024 then n := 1024;
     SetLength(bytes,n);
     F.ReadBuffer(bytes,n);
  end;
end;