procedure TForm1.Button2Click(Sender: TObject);
var
FStream : TFileStream;
ProgressBar :TProgressBar;
i,j,count: integer;
buf : array[1..40000] of Char;
begin with OpenDialog1 do if Execute then
begin
i:=round(FStream.Size/40000);
if (i*40000<FStream.Size) then i:=i+1;
ProgressBar.Max:=i;
Application.ProcessMessages;
for j:=1 to i do
begin
if i=j then
count:=FStream.Read(buf,FStream.Size-((i-1)*40000))
else count:=FStream.Read(buf,length(buf));
ProgressBar.Position:=j;
while get_accept=false do Application.ProcessMessages;
get_accept:=false;


Listbox1.Items.Add(opendialog1.FileName);
FStream:=TFileStream.Create(OPenDialog1.FileName,f mOpenRead);
Edit2.Text:=IntToStr(Round(FStream.Size/1024))+' êèëîáàéò.';
FStream.free;
end;
end;

end;