Zu deinem problem kann ich nichts sagen, da ich es nicht gant verstehe.
Aber einige Tipps:
==> Der Code ist schlecht formatiert
==> Das hier:
Delphi-Quellcode:
for j:=1 to n do
begin
if(j>=1*check) then image_fort1.Visible:=true;
if(j>=2*check) then image_fort2.Visible:=true;
[...]
kannst du vereinfachen, indem du zu begin
if(j>=j*check) ...
schreibst und image_fort per
FindComponent ansprichst.