[angvelem]

Либо перед ListBox-ом ставь префикс формы (Form1.ListBox1...), либо сделай процедуру полем класса формы.

Код:

  TForm1 = class(TForm)
...
  private
    { Private declarations }
  public
    { Public declarations }
    function List(InString : string): boolean;
  end;

function TForm1.List(InString : string): boolean;
begin  
end;