funcion , listbox y conversion

[coej]

Haber, otro más novato aún , estoy intentando capturar en una variable el contenido en texto de una Listbox, pero la verdad estoy empezando en delphi, y me pierdo, pongo el código..., no me pegueis porfavor...

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
  ListBox1: TListBox;


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a: String;
  SelItems :String;
  nItem :Integer;

implementation

{$R *.dfm}
  
   function SelText (ListBox1 : TListBox) : String;
   var
    nItem : Integer;
    begin
      nItem := ListBox1.ItemIndex;
      if nItem >= 0 then
        Result := ListBox1.Items [nItem]
      else
        Result := '';
        end;

   begin
a:= SelText(ListBox1);
end.

El error es Undeclared identifier . 'ListBox1', la verdad, se que es una tontería pero no lo pillo, me gustaría asignar a la vble a el valor seleccionado del listbox que es ListBox1 y mostrar en el mismo formulario el valor en texto..., gracias...