Problem mit Listbox

[DaHooL2k]

Code:

procedure TFrame3.ListBox1Click(Sender: TObject);
var i:byte;
begin
  for i := 0 to (ListBox1.Items.Count - 1) do begin
  try
    if ListBox1.Selected[i] then
    begin
      if ListBox1.Items.Strings[i] = 'BRAUN' then
      begin
      Label1.Color:=clMaroon;
      end;
   end;
  finally
 end;
end;

Nun habe ich damit folgende Probleme:

1. Wenn man z.B. "BRAUN" in der Liste anklickt,
wird das Label zwar braun, aber wenn man wieder "BRAUN"
anwählt, wird es ja un-makiert, und bekommt den vorherigen wert.
2. Wenn man in die Listbox klickt, neben den text,
so scrollt die listbox ganz nach unten.
3. Wurde der erste wert in der listbox makiert (aktiviert)
und makiere ich dann den 2ten wert, so kann ich nur noch nachfolgende
Werte makieren aber nicht mehr der 1ste.. also das is auch bei 2ten und 3ten...also ich kann vorige einträge zwar makieren, aber es passiert nichts mehr

Den code oben habe ich nicht selbst geschrieben,
den hab ich irgendwo gefunden, un da er nicht das macht,
was ich gerne möchte... denke ich es gibt bestimmt noch
eine ganz andere möglichkeit aktionen aus zu führen,
wenn man einträge in der listbox makiert!?

bin für jede hilfe dankbar

gruß

DH