Как реализовать экран загрузки (без фризов) при выполнении программой долгого цикла?

procedure LoadWorld;
var
i,n:integer;
K:char;
begin
AssignFile(filee,link);
reset(filee);
for i:=0 to 50 do
for n := 0 to 100 do
begin
read(filee,k);
if (k='a') or (k='A') or (k=' ') then begin B[i,n].TypeF:=air; b[i,n].TypeB:='..\res\air.png'; end;
if (k='s') or (k='S') then begin b[i,n].TypeF:=solid; b[i,n].TypeB:='..\res\stone.png'; end;
if (k='d') or (k='D') then begin b[i,n].TypeF:=solid; b[i,n].TypeB:='..\res\dirt.png'; end;
if (k='g') or (k='G') then begin b[i,n].TypeF:=solid; b[i,n].TypeB:='..\res\grass.png'; end;
end;
closefile(filee);
for i:=0 to 50 do
for n:= 0 to 100 do
begin
B[i,n].i:=TImage.Create(form1);
B[i,n].i.Parent:=Form1;
b[i,n].i.Height:=32;
b[i,n].i.Width:=32;
B[i,n].i.Position.X:=n*32;
b[i,n].i.Position.Y:=i*32;
b[i,n].i.MultiResBitmap.Bitmaps[1].LoadFromFile(b[i,n].TypeB);
end;
form1.Button1.Text:=floattostr(player.Px)+' '+floattostr(player.Py);
form1.PlayerD.Position.X:=player.Px;
form1.PlayerD.Position.Y:=player.Py;
end;

Application.ProcessMessages;