ListBox Selektierten Text in variable

[Pseudemys Nelsoni]

huhu

also ich hab folgendes für mein irc client:

Delphi-Quellcode:

procedure TForm11.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  i,i2: integer;
  b: boolean;
begin
  if Key = #13 then
  begin
    b := false;
    if Edit1.Text <> '' then
    begin
      for i := 0 to Listbox1.Count-1 do
      begin
        if Listbox1.Selected[i] then
        b:= true;
        i2 := i;
      end;
      if b = True then
      begin
        AddColoredLine(RichEdit1, '[' + Form1.TSC.Nick + '] : ' + Edit1.Text, $00FF8284);
        Form1.TSC.Notice(ListBox1.Items.Strings[i2], Edit1.Text);
        Edit1.Text := '';
        key := #0;
      end
      else
      begin
        AddColoredLine(RichEdit1, '[' + Form1.TSC.Nick + '] : ' + Edit1.Text, $0042FFFF);
        Form1.TSC.Say('#tiberiansun', Edit1.Text);
        Edit1.Text := '';
        key := #0;
      end;
    end;
  end;
end;

Das ganze ist so das wenn kein item in der listbox markiert ist, das der Text an den channel gesendet wird (gelb). wenn ein item markiert ist sollte das geschrieben in lila auf dem richedit per notice erscheinen..... das prob ist...das egal welches item in der listbox markiert ist, es wird immer dan die gleiche person gesendet obwohl eine andere markiert ist.
kann mir jemand sagen wie ich den text eines markierten items aus einer listbox bekomme? mit Listbox1.Selected[i] scheints ja nicht zu klappen

danke

gruss silent