1.Słyszał o czymś takim co się nazywa formatowanie kodu? Nie, przecież to dla cieniasów
2.Słyszał o czymś takim jak konstrukcja ELSE? Nie, prężcież to dla cieniasów.
3.
x1: integer;
x2: integer;
x3: integer;
x4: integer;
y1: integer;
y2: integer;
y3: integer;
y4: integer;
y5: integer;
Słyszał o czymś takim jak tablica? Nie, to dla cieniasów.
4.
if shape3.left >= shape5.left then
edit3.Text := '3'; </quote>
5.Zazwyczaj nie robię gotowców ale aż nie wytrzymałem (zrobiłem tak żeby wyglądało że ty robiłeś). Masz procedurę Timera, resztę dopisz
```delphi
Procedure TForm1.Timer1Timer(Sender:TObject);Begin
If Edit1.Text=''Then If Shape1.Left>=Shape5.Left Then Begin If Oho123=0 Then Edit1
.Text:='1';If Oho123=1 Then Edit1.Text:='2';If Oho123=2 Then Edit1.Text:='3';If Oho123
=3 Then Edit1.Text:='4';If Oho123=2 Then Oho123:=3;If Oho123=1 Then Oho123:=2;If
Oho123=0 Then Oho123:=1;End;Shape1.Left:=Shape1.Left+X1;If Shape1.Left>Form1.Width
-200 Then X1:=0;If Edit2.Text=''Then If Shape2.Left>=Shape5.Left Then Begin If Oho123
=0 Then Edit2.Text:='1';If Oho123=1 Then Edit2.Text:='2';If Oho123=2 Then Edit2.Text
:='3';If Oho123=3 Then Edit2.Text:='4';If Oho123=2 Then Oho123:=3;If Oho123=1 Then
Oho123:=2;If Oho123=0 Then Oho123:=1;End;Shape2.Left:=Shape2.Left+X2;If Shape2.Left
>Form1.Width-200 Then X2:=0;If Edit3.Text=''Then If Shape3.Left>=Shape5.Left Then
Begin If Oho123=0 Then Edit3.Text:='1';If Oho123=1 Then Edit3.Text:='2';If Oho123
=2 Then Edit3.Text:='3';If Oho123=3 Then Edit3.Text:='4';If Oho123=2 Then Oho123:=
3;If Oho123=1 Then Oho123:=2;If Oho123=0 Then Oho123:=1;End;Shape3.Left:=Shape3.Left
+X3;If Shape3.Left>Form1.Width-200 Then X3:=0;If Edit4.Text=''Then If Shape4.Left
>=Shape5.Left Then Begin If Oho123=0 Then Edit4.Text:='1';If Oho123=1 Then Edit4.
Text:='2';If Oho123=2 Then Edit4.Text:='3';If Oho123=3 Then Edit4.Text:='4';If Oho123
=2 Then Oho123:=3;If Oho123=1 Then Oho123:=2;If Oho123=0 Then Oho123:=1;End;Shape4
.Left:=Shape4.Left+X4;If Shape4.Left>Form1.Width-200 Then X4:=0;End;