[M.A.D.M.A.N.]

Я так и не понял сысл программы, тебе надо чтобы пункты просто перемещались по кругу?
просто делай так

Код:

var Temp:String;
begin
  Temp:=LbMain.Items[0];
  LbMain.Items.Delete(0);
  LbMain.Items.Add(Temp);
  Temp:='';//Чистим память на всякий случай
end;