[roman]

Debes declarar la función SelText como método del formulario:

Código Delphi [-]
TForm1 = class(TForm)
  ListBox1: TListBox;

private
  { Private declarations }
public
  { Public declarations }
  function SelText (ListBox1 : TListBox) : String;
end;

y anteponer el nombre de la clase del formulario al momento de implementar el método:

Código Delphi [-]
function TForm1.SelText (ListBox1 : TListBox) : String;
begin
  ...
end;

Por otra parte, cuando pongas código asegúrate de poner las etiquetas adecuadas para su formato.

// Saludos