procedure MoveBack(Owner, Dest : TControl; zOrder : integer);

var

a : integer;

begin

a := Owner.Controls.IndexOf(TControl(Dest));

if a <> -1 then

begin

    Owner.Controls.Delete(a);

    Owner.Controls.Insert(zOrder, TControl(Dest));

end;

end;