Delphi 7. Код с ошибками

unit Unit1; 
 
interface 
 
uses 
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
 Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls; 
 
type 
 TfEditor = class(TForm) 
 GroupBox1: TGroupBox; 
 GroupBox2: TGroupBox; 
 Label1: TLabel; 
 Label2: TLabel; 
 Label3: TLabel; 
 Label4: TLabel; 
 Label5: TLabel; 
 Label6: TLabel; 
 Splitter1: TSplitter; 
 DBNavigator1: TDBNavigator; 
 Button1: TButton; 
 Button2: TButton; 
 procedure GroupBox1Exit(Sender: TObject); 
 procedure GroupBox2Click(Sender: TObject); 
 procedure Button2Click(Sender: TObject); 
 procedure Button1Click(Sender: TObject); 
 procedure GroupBox2Exit(Sender: TObject); 
 private 
 { Private declarations } 
 public 
 { Public declarations } 
 end; 
 
var 
 fEditor: TfEditor; 
 
implementation 
 
uses Main, DFpass; 
 
{$R *.dfm} 
 
procedure TfEditor.GroupBox1Exit(Sender: TObject); 
begin 
 if DFpass.TSklad1.Modified then 
 DFpass.TSklad1.Post; 
 
end; 
 
procedure TfEditor.GroupBox2Exit(Sender: TObject); 
begin 
 if DFpass.TSklad1.Modified then 
 DFpass.TSklad1.Post; 
 
end; 
 
procedure TfEditor.Button2Click(Sender: TObject); 
begin 
 if DFpass.TSklad1.Modified then 
 DFpass.TSklad1.Post; 
 if DFpass.TMagazine1.Modified then 
 DFpass.TMagazine1.Post; 
 Close; 
end; 
 
procedure TfEditor.Button1Click(Sender: TObject); 
begin 
 DFpass.TSklad1.Append; 
 DFpass.TSklad1.Append; 
 DBEdit1.SetFocus; 
end; 
 
procedure TfEditor.GroupBox2Exit(Sender: TObject); 
begin 
 if fDM.TSklad1.Modified then 
 fDM.TSklad1.Post; 
end; 
 
end.