procedure TMainForm.Button4Click(Sender: TObject);
var
x,y,z:integer;
begin
if listbox1.ItemIndex=-1 then exit;
x:=listbox1.ItemIndex;
y:= x-1;
z:= listbox1.ItemIndex;
Listbox1.Items.Move(x,y);
if z=0 then listbox1.ItemIndex:=listbox1.Items.Count-1
else
listbox1.ItemIndex:=z-1;
end;

procedure TMainForm.Button5Click(Sender: TObject);
var
x,y,z:integer;
begin
if listbox1.ItemIndex=-1 then exit;
x:=listbox1.ItemIndex;
y:= x+1;
z:= listbox1.ItemIndex;
if y=listbox1.Items.Count then
begin
Listbox1.Items.Move(x,0);
Listbox1.ItemIndex:=0;
end;
if y<listbox1.Items.Count then
begin
Listbox1.Items.Move(x,y);
Listbox1.ItemIndex:=z+1;
end;
end;