Help with for loop in delphi

[Peppercat101]

Im writing monopoly, im still a beginner and any help would be appreciated... I wrote this for loop but for some reason it starts at 28 and not at 1....

For r := 1 to 28 do
If STekoop[1,r] = plek then
If messagedlg(STeKoop[r,2] + ' FOR SALE.' + #13 + 'Price: ' + STekoop[r,3] + #13 + 'Buy?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
Begin
Money1 := Money1 - StrToInt(STekoop[r,3]);

Please help????

[theGlitch]

what does r= prior to the loop?