这个函数的参数怎么写才是对的？

Question

我需要它的参数是布尔类型的，而且函数体要有一个组件，可是提示错误？我是初学者，很多东西看不懂，也看不懂，请大家感谢中，只是解决这个问题，编译器提示：没有这个组件，但是我已经在面板中拖了这个组件到窗体上，代码：
function (a:boolean):boolean;
begin
result:=listbox1.selected[0];
end;

Answer 1

提示什么错误，是不是这个函数不是成员函数啊，那样访问listbox1需要加上 from1.listbox1

Answer 2

提示：
Field definition not allowed after methods or properties；
Identifier expected but '(' found TForm1 = class(TForm)
    Button1: TButton;
    listbox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    function (a:boolean):boolean;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
function (a:boolean):boolean;
begin
result:=listbox1.selected[0];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.SelectAll;
end;

Answer 3

没有定义函数名称阿
function myName : boolean;
begin
  result:=listbox1.selected[0];end;

Answer 4

TForm1 = class(TForm)
    Button1: TButton;
    listbox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    function abc(a:boolean):boolean;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}function TForm1.abc(a: boolean): boolean;
begin
  result:=listbox1.selected[0];
end;procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.SelectAll;
end;end.

Answer 5

我改了下，又提示：
[Error] Unit1.pas(28): Undeclared identifier: 'listbox1'
[Error] Unit1.pas(15): Unsatisfied forward or external declaration: 'TForm1.zy'type
  TForm1 = class(TForm)
    Button1: TButton;
    listbox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    function abc(a: boolean): boolean;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
 function abc(a: boolean): boolean;
begin
  result:=listbox1.selected[0];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 listbox1.SelectAll;
end;

Answer 6

  private
    function abc(a: boolean): boolean;鼠标放这里，然后 Ctrl+Shift+C ，然后再写代码。

Answer 7

看楼主的程度，只能这样告诉你。
把下面的这段代码，替换你的代码。就可以通过了。
type
  TForm1 = class(TForm)
    Button1: TButton;
    listbox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    function abc(a: boolean): boolean;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
 function TForm1.abc(a: boolean): boolean;
begin
  result:=listbox1.selected[0];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 listbox1.SelectAll;
end;