用代码激活事件combobox1change(Self)错误的问题

Question

combobox1change(Self);我要激活combox1的onchange事件，上面这行代码有问题吗？
为什么提示我Missing operator semicolon 的错误？？

Answer 1

改成：
ComboBox1.OnChange(Sender);

Answer 2

还没好，还是提示原来的错误。我把整个代码全贴出来，是不是我少写了些什么？unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    ListBox1: TListBox;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Session.GetTableNames(combobox1.Text,'',false,false,listbox1.Items );
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  session.GetDatabaseNames(combobox1.items);
  combobox1.Text:='DBDEMOS'
  combobox1change(self);
  listbox1.itemindex:=0;
  listbox1click(self);
end;procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  Table1.Close;
  Table1.DatabaseName:=combobox1.Text ;
  Table1.TableName := Listbox1.Items[listbox1.itemindex];
  Table1.Open;
  Caption:=Format('当前浏览：%s-%s',[Table1.DatabaseName,Table1.TableName]);end;procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Table1.Close;
  Table1.DatabaseName:=ComboBox1.Text ;
  Table1.TableName := ListBox1.Items[Listbox1.itemIndex];
  Table1.Open
  Caption:=Format('当前浏览%s-%s',[Table1.DatabaseName,Table1.TableName]);
end;end.

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
  session.GetDatabaseNames(combobox1.items);
  combobox1.Text:='DBDEMOS'
  combobox1change(combobox1); // 改这一行
  listbox1.itemindex:=0;
  listbox1click(listbox1); // 改这一行
end;你可能还不是很了解Sender参数的含义。Sender是指事件的触发者，procedure TForm1.ListBox1Click(Sender: TObject);这里的Sender是ListBox1而不是Form1。在方法procedure TForm1.FormCreate(Sender: TObject);中，Self是指TForm1的实例，在这里是指Form1，所以那两个参数不能用Self