Progressbar beim erstellen einer Datei?

[Headi]

Ich habe das jetzt mal so gemacht wie ich das verstanden habe,
Aber kann es sein dass er da die file grösse jetzt 10 mal schreibt??

Abgesehen davon habe ich jetzt irgendwie ein durcheinander mit den variablen, ich runde hin und her und am schluss
ist dann mein ergebnis nicht mehr genau. Was mache ich falsch? Also Es funktioniert, aber das ergebnis hat einfach eine Abweichung.

hier mal mein Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  R: Real;
  I, IMB: integer;
  IMB2: int64;

begin
  R:=StrToFloat(JvEdit1.Text);
  IMB:=round(R*1048576/10);
  If SaveDialog1.Execute then
  begin
    IMB2:=IMB;
    fs := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmShareExclusive);
    for I := 1 to 10 do
    begin
      fs.Size := fs.Size+IMB2;
      ProgressBar1.Position:=ProgressBar1.Position+10;
    end;
    fs.Free;
  end
end;