ListBox Selektierten Text in variable

[Pseudemys Nelsoni]

Delphi-Quellcode:

procedure TForm11.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  s: string;
begin
  if Key = #13 then
  begin
    if Edit1.Text <> '' then
    begin
      s := ListBox1.Items[Listbox1.ItemIndex];
      if s <> '' then
      RichEdit1.Lines.Add('Item markiert')
      else RichEdit1.Lines.Add('Nichts markiert');
    end;
  end;
end;

kannst du mir noch sagen wieso ich nen fehler bekomme wenn nichtsd markiert ist?

ich muss prüsen ob was markiert ist oder nicht

thx