1:

Variable := {markierter Eintrag};					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click
          (Sender :TObject);
begin
  if Self.FileListBox1.ItemIndex >-1 then
    Variable :=Self.FileListBox1.Items.Strings[Self.FileListBox1.ItemIndex];
  { Ist ItemIndex =-1, bedeutet es das nichts ausgewählt ist.
    Der erste Eintrag hat den Index 0.
    Würdest du das nicht berücksichtigen, löst Du in diesem
    Fall eine Exeption (Fehlermeldung) aus, da nichts ausge-
    wähltes auch keine Bezeichnung hat. }
end;