[v1s2222]

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if(FileExists(ListBox1.Items[ListBox1.ItemIndex])) then
    Label2.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;