try this:
Procedure TTeacherForm.ShowData();
begin
....................
...................
end;procedure TTeacherForm.FormCreate(Sender: TObject);
begin
  ShowData();
end;

解决方案 »

  1.   

    Procedure Tform1.ShowData();
    begin
    ....................
    ...................
    end;
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      ShowData();
    end;
      

  2.   

    public
        { Public declarations }
        Procedure ShowData;
    end;
    Procedure Tform1.ShowData;
    begin
    ....................
    ...................
    end;
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      ShowData;
    end;
      

  3.   

    Procedure Form1.ShowData();
    begin
    ....................
    ...................
    end;
    procedure Form1.FormCreate(Sender: TObject);
    begin
      ShowData();
    end;