2个错误 新人求救！！！

老是运行出错 以下是代码：
unit Unit1;

interface

uses
  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()这个是什么？ 什么作用？

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

删除红色这行,从那冒出来的

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

是需要进行变量声明么？

if dbedt1.Text :='' or dbedt2.Text := '' then

改为

if (dbedt1.Text ='') or (dbedt2.Text = '') then

最后一个贴出来的 已经改了 还是报2个错误 为什么哦？