Im writing monopoly, Im still a beginner so please help.... 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
Money1 := Money1 - StrToInt(STekoop[r,3]);