Отобразить загрузку в progress

function GetFileSize(FileName: string): Integer;
var
FS: TFilestream;
begin
try
FS := TFilestream.Create(Filename, fmShareDenyRead);
except
Result := -1;
end;
if Result <> -1 then
Result := FS.Size;
FS.Free;
end;

var
i:integer; SizeOfApp: Int64;
begin
ProgressBar1.position:= 0;
if OpenDialog1.Execute then begin
ProgressBar1.max:= round(GetFileSize(OpenDialog1.FileName));
SizeOfApp := GetFileSize(ParamStr(0));
ProgressBar1.position:=(GetFileSize(OpenDialog1.FileName));
{/*for i:=1 to GetFileSize(OpenDialog1.FileName) do
begin
ProgressBar1.position:=i;
end;    }
//GLActor1.LoadFromFile(OpenDialog1.FileName);
//form1.Caption := inttostr(GetFileSize('C:\WINDOWS\notepad.exe'));
///ProgressBar1.position:= round(GetFileSize(OpenDialog1.FileName)); IntToStr
glactor1.ShowAxes:=false;

for i:=1 to size do
ProgressBar1.position:=i;

procedure TForm1.LoadFile(const FileName: string);
const
  BufferSize = 65536;
var
  StrBuffer: array[0..BufferSize - 1] of Char;
  F: file;
  MemoryStream: TMemoryStream;
  Result, Max, Curr, Progress: Integer;
begin
  AssignFile(F, FileName);
  Reset(F, 1);
  Curr := 0;
  Max := FileSize(F) div BufferSize + 1;
  MemoryStream := TMemoryStream.Create;
  try
    repeat
      BlockRead(F, StrBuffer, BufferSize, Result);
      MemoryStream.Write(StrBuffer, Result);
      Inc(Curr);
      Progress := Curr * 100 div Max;
      ProgressBar1.Position  := Progress;
      Application.ProcessMessages;
    until Result <= 0;
 
    MemoryStream.Seek(0, soBeginning);
    Memo1.Lines.LoadFromStream(MemoryStream);
  finally
    MemoryStream.Free;
  end;
  CloseFile(F);
  ProgressBar1.Position  := 0;
  Button1.Enabled:=true;
 // form1.progressbar4.Position:=0;
 end;

type TCallBack = procedure (progress, total: Cardinal);
 
function LoadFile(const FileName: TFileName; s:TStrings; cbProgress: TCallBack):boolean;
var
MemStr: TMemoryStream; Title: String;
begin
MemStr:= TMemoryStream.Create;
try
 MemStr.LoadFromFile(FileName);
 MemStr.Seek(0, soFromBeginning);
//ReadStreamStr( MemStr );
s.LoadFromStream(MemStr);
cbProgress(MemStr.Size,1);
result:=true;
 finally
  MemStr.Free;
 end;
end;
procedure cbProgress(Curr, Max: Cardinal);
begin
    Form1.ProgressBar1.Max:= (Curr div 1024) div 1014;  Form1.Label2.Caption:=inttostr(Form1.ProgressBar1.max);
    Form1.ProgressBar1.Position :=Form1.ProgressBar1.Max; Form1.Label1.Caption:=inttostr(Form1.ProgressBar1.Position); // Curr * 100 div Max; 5% ot 50 = (5*50)/100
    Application.ProcessMessages;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadFile('test.txt', memo1.Lines, @cbProgress);
Application.ProcessMessages;
end;

function Memory(text: string):string;
begin
    form1.Memo1.Lines.Add(text);
 end;
 
function LoadFile(const FileName: TFileName):string;
var
f:file; text:string; SizeFile:Integer;
begin
  AssignFile(f, FileName);
  Reset(f, 64);
    try
    SetLength(text, SizeFile);
    BlockRead(F, PChar(text)^, (FileSize(F) div 64) + 1);
   Memory(PChar(text));
  finally
    CloseFile(f);
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadFile('40.txt');

TLoadFileStream = class(TThread)