Хочу сделать перемещение объектов, но перемещается только один

[Виталий2266]

Перемещается только 1 объект shp1 (на буквы не обращайте внимание,в delphi какой-то баг,в действительности там русские буквы)

if (key='w')or(Key='W')or(Key='ö')or(Key='Ö') then
shp1.Top:=shp1.Top-1;
shp2.Top:=shp2.Top-1;
shp3.Top:=shp3.Top-1;
if (key='s')or(Key='S')or(Key='Û')or(Key='û') then
shp1.Top:=shp1.Top+1;
shp2.Top:=shp2.Top+1;
shp3.Top:=shp3.Top+1;
if (key='a')or(Key='A')or(Key='ô')or(Key='Ô') then
shp1.Left:=shp1.left-1;
shp2.left:=shp2.left-1;
shp3.left:=shp3.left-1;
if (key='d')or(Key='D')or(Key='â')or(Key='Â') then
shp1.left:=shp1.left+1;
shp2.left:=shp2.left+1;
shp3.left:=shp3.left+1;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[p51x]

бегин и энд нужны

[Виталий2266]

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

бегин и энд нужны

они есть,просто я их не скопировал,программа работает, но двигается один объект,а нужно чтобы сразу 3

[Виталий2266]

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

бегин и энд нужны

Все,я понял где нужны они, спасибо!

[Serge_Bliznykov]

Сообщение от Виталий2266

они есть,просто

после then нужны begin и end для всех операций (команд), которые это условие затрагивает.

по оформлению
1) чтобы не было кракозябр, ПЕРЕД копированием в буфер обмена нужно включить русскую раскладку клавиатуры
2) код нужно оформлять тегами [CODE]