2个错误 新人求救！！！

Question

老是运行出错   以下是代码：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls;type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    dbedt1: TDBEdit;
    dbedt2: TDBEdit;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    datasource1: TDataSource;
    table1: TTable;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
  private
   { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  table1.Active := True ;    //打开数据表
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  table1.Active := False ;    //关闭数据库
end;procedure TForm1.btn1Click(Sender: TObject);
begin
  if table1.Bof  then   //假如数据记录在最前
  begin
    btn1.Enabled :=False ;  //使按钮失效
  end
  else
  begin
    table1.Prior ;  //上一条记录
    btn2.Enabled :=True ;
    btn4.Enabled :=True;
  end;
end;procedure TForm1.btn2Click(Sender: TObject);
begin
  if table1.Eof  then   //假如是最后一条记录
  begin
    btn2.Enabled :=True ;
  end
  else
  begin
    table1.Next ;     //下一条记录
    btn1.Enabled :=True ;
    btn4.Enabled :=True ;
  end;
end;private  Sub cmdNext_click()
procedure TForm1.btn3Click(Sender: TObject);
begin
  if dbedt1.Text :=''  or dbedt2.Text := '' then
  begin
    ShowMessage('请输入学号，姓名');
  end
  else
  begin
    ShowMessage('添加成功');
    table1.Append ;     //追加数据
  end;
end;procedure TForm1.btn4Click(Sender: TObject);
begin
  if MessageDlg('确认要删除记录么？',mtConfirmation ,[mbYes,mbNo],0)=mrYes then
  begin
    table1.Edit ;      //使数据表可编辑
    table1.Delete ;    //删除数据记录
    table1.Post ;      //提交删除操作
  end;
end;end.
一下是错误：Build
  [Error] Unit1.pas(78): Declaration expected but identifier 'private' found
  [Error] Unit1.pas(81): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
3个错误是什么意思？
另外private  Sub cmdNext_click()这个是什么？ 什么作用？

Answer 1

Could not compile used unit 'Unit1.pas'
不能编译'Unit1.pas'单元

Answer 2

删除以后  出现下面
Build
  [Error] Unit1.pas(81): Operator not applicable to this operand type
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Answer 3

if dbedt1.Text :='' or dbedt2.Text := '' then改为if (dbedt1.Text ='') or (dbedt2.Text = '') then

Answer 4

private Sub cmdNext_click()   --这个地方是不是嵌套了。
procedure TForm1.btn3Click(Sender: TObject);
begin
  if （dbedt1.Text :=''） or （dbedt2.Text := ''） then   //这里产生的结果应该是布尔型的
  begin
  ShowMessage('请输入学号，姓名');
  end
  else
  begin
  ShowMessage('添加成功');
  table1.Append ; //追加数据
  end;
end;