Verbleibende Zeit beim Kopieren berechnen

[TheMiller]

Hallo,

ich habe eine Funktion die 2 Dateien kopiert (siehe Quellcode). Jetzt würde ich gerne wissen, wie ich die dazu verbleibende Zeit berechnen kann. Ich habe es leider mit Mathe nicht so *g*

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);

Danke im Voraus