Podés llamar a la función desde varios eventos, te pongo tres ejemplos:
Al hacer click en el ListBox:
Código Delphi
[-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
Label.Caption:= SelText(ListBox1);
end;
Al hacer click en un TButton:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Self.Caption:= SelText(ListBox1);
end;
Al salir del ListBox1:
Código Delphi
[-]
procedure TForm1.ListBox1Exit(Sender: TObject);
begin
ShowMessage(SelText(ListBox1));
end;
Un saludo.