Zaznaczenie aktualnego pytania [ListBox]

Wiatm!
Mam ListBox'a:

for I := 1 to Pytan do Lista.Items.Add('Pytanie: ' + IntToStr(I));

Pytanie: 1
Pytanie: 2
Pytanie: 3
...

a w nim liste Pytan :P i teraz chce zrobic cos takiego zeby aktyalne wczytane pytanie bylo zaznaczone na Listboxie w taki sposob:

> Pytanie: 69

Tylko zaplatalem sie [wstyd], bo nie wiem jak zrobic zeby poprzednie pytanie nie mialo tego "> " ... zaznaczenia :P

Wielkie dzieki za pomoc :)

const Pytan=10;
var
  Form1: TForm1;
  lastChck:integer=0;
(...)
procedure TForm1.ButtonWczytaniaListyClick(Sender: TObject); // "create" listy z pytaniami;
var i:integer;
begin
  for I:=1 to Pytan do Lista.Items.Add('Pytanie: ' + IntToStr(I));
  Lista.ItemIndex:=LastChck; // początkoe zaznaczzenie
  Lista.Items.Strings[Lista.ItemIndex]:='>'+Lista.Items.Strings[Lista.ItemIndex];
end;

procedure TForm1.ListaClick(Sender: TObject);
var i:integer;
begin
  Lista.Items.Strings[LastChck]:=Copy(Lista.Items.Strings[LastChck],2,Length(  Lista.Items.Strings[LastChck])-1);
  Lista.Items.Strings[Lista.ItemIndex]:='>'+Lista.Items.Strings[Lista.ItemIndex];
  LastChck:=Lista.ItemIndex;
end;

:) chyba o to chodzi :>

Dziala idealnie

LukaStrz -> [browar] :) wielkie dzieki :) :d