Ultima Linha Do Listbox

[Progr'amador]

OLA COLEGAS, alguém PODE ME AJUDAR AÍ?

É O SEGUINTE, EU TENHO UM LISTBOX COM VARIAS LINHAS, E GOSTARIA DE CLICAR NUM BUTTOM (POR EXEMPLO) E TRAZER EM UM LABEL O VALOR DA ULTIMA LINHA DO LISTBOX.

ISSO É MUITO IMPORTANTE PRA MIM, VAI ME TIRAR UMA CORDA DO PESCOÇO...

[s3c]

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ListBox1.Count > 0 then
    Label1.Caption := ListBox1.Items[ListBox1.Count-1];
end;