Blockread mal wieder

[dazar_t]

Guten Tag
Mir ist die funktion BlockRead bekannt und so wie ich es nun verstanden habe läuft es so ab :
BlockRead(FILE,BUFFER,WIEVIELE ZEICHEN MAN LESEN WILL); aber z.B in diesem Code

Delphi-Quellcode:

var
  f,t: file of byte;
  buf: array[1..4096] of byte;
  read: Integer;
begin
  assignfile(f, 'Y:\Datei1.exe');
  assignfile(t, 'C:\Datei1.exe');
  reset(f);
  rewrite(t);
  while not eof(f) do
  begin
    blockread(f, buf, length(buf), read);
    blockwrite(t, buf, read);
    Progressbar1.Position:=round(100*(filesize(t)/filesize(f)));
    Application.ProcessMessages;
  end;
  closefile(f);
  closefile(t);

wird read ja nirgends einen wert zugewiesen wieviele zeichen ließt er den dann und warum ?