Перемещение элементов в ListBox

[kodov]

Здравствуйте!
Такой вопрос. Есть код для перемещения элементов в ListBox. Я хочу перемещать элементы клавишами вверз и вниз, а также кнопками speedbutton1 и speedbutton2 (вверх и вниз соответственно). Также мне нужно, чтобы когда элемент доходит ко конца, то выдавалось сообщение, типа, Хотите переместить на первую или на последнюю строку.
Но мой код немного глюкавит. Помогите, пожалуйста разобраться.
Вот сам код:

private
procedure DoMoveListItem(AKind: Boolean);
-------------------------------------------------
procedure TMainForm.DoMoveListItem(AKind: Boolean);
var lIndex, NewIndex: Integer;
begin lIndex := personslist.ItemIndex;
try if (lIndex >= 0) and (lIndex < personslist.Count) then
begin case AKind of True:
begin NewIndex := lIndex + 1;
personslist.Items.Exchange(lIndex,N ewIndex);
end;
False:
begin
NewIndex := lIndex - 1;
personslist.Items.Exchange(lIndex,N ewIndex);
end;
end;
personslist.ItemIndex:= lIndex;
end;
except
end;
end;
procedure TMainForm.personslistKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = vk_up then DoMoveListItem(True);
if key = vk_down then DoMoveListItem(False);
end;
procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin personslist.ItemIndex := personslist.ItemIndex -1;
DoMoveListItem(True);
end;
procedure TMainForm.SpeedButton2Click(Sender: TObject);
begin personslist.ItemIndex := personslist.ItemIndex + 1;
DoMoveListItem(false);
end;
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin if key = vk_up then
DoMoveListItem(True);
if key = vk_down
then DoMoveListItem(False);
end;

[mihali4]

try if (lIndex >= 0) and (lIndex < personslist.Count) then
begin case AKind of True:
begin NewIndex := lIndex + 1;

А что будет, если lIndex - последний? Ведь последний индекс равен personslist.Count-1...

False:
begin
NewIndex := lIndex - 1;

А что будет, если lIndex - первый? Ведь первый индекс равен 0...

[RSLoader]

Неохота разбираться с твоим кодом, посмотри, может, поймёшь свою ошибку. здесь стрелками вверх-вниз меняется значение элемента соответственно на верхнее и нижнее. Если элемент первый, то меняет на последний, и наоборот.

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ListBox1.ItemIndex=-1 then ListBox1.ItemIndex:=0;
  case Key of
       VK_UP:if ListBox1.ItemIndex=0 then
             begin
               ListBox1.Items.Exchange(0,ListBox1.Count-1);
               ListBox1.ItemIndex:=ListBox1.Count-1;
             end
             else ListBox1.Items.Exchange(ListBox1.ItemIndex,ListBox1.ItemIndex-1);
       VK_DOWN:if ListBox1.ItemIndex=ListBox1.Count-1 then
               begin
                 ListBox1.Items.Exchange(ListBox1.ItemIndex,0);
                 ListBox1.ItemIndex:=0;
               end
               else ListBox1.Items.Exchange(ListBox1.ItemIndex,ListBox1.ItemIndex+1);
  end;
  Key:=0;
end;

[kodov]

Спасибо за ответ. Уже разобрался.