c

B := 0;
while not terminated do
begin
A := Random(1,5);
if B <> A then
case A of
1:
begin
Self.FaceUp;
Sleep(400);
end;
2:
begin
Self.FaceRight;
Sleep(400);
end;
3:
begin
Self.FaceDown;
Sleep(400);
end;
4:
begin
Self.FaceLeft;
Sleep(400);
end;
end;
B := A;
sleep(10);
end;