procedure TForm1.BtnYukariClick(Sender: TObject);
begin
with ListBox1 do
if (ItemIndex <> -1) and (ItemIndex > 0) then
Items.Exchange(ItemIndex, ItemIndex - 1);
end;
procedure TForm1.BtnAsagiClick(Sender: TObject);
begin
with ListBox1 do
if (ItemIndex <> -1) and (ItemIndex < Items.Count - 1) then
Items.Exchange(ItemIndex, ItemIndex + 1);
end;