[andres1569]

Hola:

with ListBox1 do
  if Items.Count > 0 then Label1.Caption := Items[0]
  else Label1.Caption := '';  // cadena vacía pues no hay Items

Saludos