procedure TForm3.Loop(sender: tobject);
var
  i : integer;
begin
  for I := 0 to Tiles.Count - 1 do
  begin
    if(tiles[i].isAnimating) then
    begin
      if(tiles[i].animateProperty = 'left') then
      begin
        if(tiles[i].step > 0) then
        begin
          if tiles[i].left < tiles[i].animateTo - tiles[i].step then
          begin
            tiles[i].Left := tiles[i].Left + tiles[i].step;
          end else begin
            emptyTile.Left := tempX;
            emptyTile.Visible := true;
            tiles[i].isAnimating := false;
            tiles[i].Left := tiles[i].animateTo;
          end;
        end else begin
          if tiles[i].left > tiles[i].animateTo - tiles[i].step then
          begin
            tiles[i].Left := tiles[i].Left + tiles[i].step;
          end else begin
            emptyTile.Left := tempX;
            emptyTile.Visible := true;
            tiles[i].isAnimating := false;
            tiles[i].Left := tiles[i].animateTo;
          end;
        end;
      end else begin
        if(tiles[i].step > 0) then
        begin
          if tiles[i].top < tiles[i].animateTo - tiles[i].step then
          begin
            tiles[i].top := tiles[i].top + tiles[i].step;
          end else begin
            emptyTile.top := tempY;
            emptyTile.Visible := true;
            tiles[i].isAnimating := false;
            tiles[i].top := tiles[i].animateTo;
          end;
        end else begin
          if tiles[i].top > tiles[i].animateTo - tiles[i].step then
          begin
            tiles[i].top := tiles[i].top + tiles[i].step;
          end else begin
            emptyTile.top := tempy;
            emptyTile.Visible := true;
            tiles[i].isAnimating := false;
            tiles[i].top := tiles[i].animateTo;
          end;
        end;
      end;
    end;
  end;
end;