Графика (линии), Есть ли оператор типа STEP? Опции

[Logan]

Помогите возникла проблемка! Короче мне надо нарисовать что-то вроде забора (простого, из линий). Вручную очень долго и путанно! Наверное я не знаю этой команды. Что мне нужно: нарисовать вертикальные линии с шагом к примеру 50. На бейсике это выгляделл так:
for x=100 to 600 STEP 50 и далее указать координаты
первой линии.
Программа сама рисует на этом интервале линии с указаным шагом!

[xds]

Возможные функциональные аналоги указанной конструкции Бейсика на Паскале:

x := 100;
while x <= 600 do
  begin   
    { сделать что-нибудь полезное }    
    Inc(x, 50);
  end;

x := 100;
repeat
  { сделать что-нибудь полезное }
  Inc(x, 50);  
until x > 600;

for i := 0 to 10 do
  begin
    x := 100 + i * 50;
    { сделать что-нибудь полезное }
  end;