funcion , listbox y conversion

[ecfisa]

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
 (* se asigna a la propiedad Caption del Label el item  seleccionado en ListBox1 *)
  Label.Caption:= SelText(ListBox1); 
end;

Al hacer click en un TButton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 (* se asigna a la propiedad Caption del Form el item seleccionado en ListBox1 *)
  Self.Caption:= SelText(ListBox1);
end;

Al salir del ListBox1:

Código Delphi [-]
procedure TForm1.ListBox1Exit(Sender: TObject);
begin
  (* se muestra el item seleccionado en ListBox1, en un cuadro de dialogo *)
  ShowMessage(SelText(ListBox1));
end;

Un saludo.