Listview cursorü yönlendirmek..

[Berdem]

Merhaba,

Kod: Tümünü seç

procedure TForm1.ListView1KeyPress(Sender: TObject; var Key: Char);
begin
   if (Key >= '0') and (Key <= '9')  then
  begin
     ListView1.Selected.Caption:=Key;
     if ListView1.Items.Count< ListView1.ItemIndex+1 then ListView1.ItemIndex := ListView1.ItemIndex  + 1
  end
  else
    Key := Chr(0);
end;

Bu kodla girmiş olduğum rakamsal değerlerde bir sonrasında cursorü aşağıdaki satıra geçmek istiyorum.Rakamlar birbirinden farklı olursa bir sorun çıkmıyor. Eğer aynı rakamsa aynı rakamın olduğu değere cursor gidiyor.Yardımlarınızı bekliyorum.