Нарисовать квадратную мишень

[lepump]

6769_html_1e8cd76f.png

Begin
for k:=1 to n do begin
canvas.Brush.Color:=random(10000000 );
canvas.Rectangle(500-10,500-10,500-10,500-10);
end;

Что здесь не хватает?

[BDA]

canvas.Rectangle(10+5*k,10+5*k,510-5*k,510-5*k);

[lepump]

Это вместо моего canvas.Rectangle(500-10,500-10,500-10,500-10)?

[type_Oleg]

BDA, получается вот это при n=7
Надо вместо 5 - ширину полос, вычисляемую в зависимости от n.
Ширина полосы = ширина Canvas /(2*n-1). Конечно, div вместо /

[lepump]

Покажи пожалуйста исходник. У меня ошибки выдает. Не могу понять что забил вставить или пропустил.

[type_Oleg]

Вот, у меня так.

procedure TForm1.Button1Click(Sender: TObject);
var k,n:Integer;
begin
 n:=7;
 for k:=1 to n do begin
 Image1.canvas.Brush.Color:=random(10000000 );
 Image1.canvas.Rectangle(10+5*k,10+5*k,510-5*k,510-5*k);
 end;
end;

[lepump]

Сообщение от type_Oleg

Вот, у меня так.

procedure TForm1.Button1Click(Sender: TObject);
var k,n:Integer;
begin
 n:=7;
 for k:=1 to n do begin
 Image1.canvas.Brush.Color:=random(10000000 );
 Image1.canvas.Rectangle(10+5*k,10+5*k,510-5*k,510-5*k);
 end;
end;

Спасибо! Это уже что-то. А вот здесь случайно не подскажешь?
Есть форма, а на ней кнопка. При нажатии на кнопку Форма двигается вправо или влево, через рандом я полагаю.

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Left:=Form1.left -10;
end;

end.

[type_Oleg]

Только надо просто

 Left:=Left-10;

Раз это в процедуре, принадлежащей форме Form1, значит эта Left - для Form1

[lepump]

Сообщение от type_Oleg

Только надо просто

 Left:=Left-10;

Раз это в процедуре, принадлежащей форме Form1, значит эта Left - для Form1

А как правильно написать что бы она при нажатии на кнопку и вправо двигалась и при повторном нажатии влево?

[type_Oleg]

Непонятно, что конкретно надо.
Как должна двигаться форма ? Случайно ?
Если случайно, то должно ли учитываться предыдущее направление движения ?
Если не случайно, то по какому принципу?

Пример приведите для нескольких кликов.