Ошибка среды delphi7.

[SNUPY]

Приветсвую всех. У меня возникла такая проблема.... При попытке автоматически сконструировать тело продцедуры для какого-нибудь событие объекта среда выдает ошибку: "Could not Find source location to add method <тут имя компонента>. "END." or INITIALIZATION not found in unit source." . Скорее всего я где согрешил, но почему то Delphi6 не выдает мне такую ошибку .
Вот навсяк код юнита где проихсодят подобные чертовщины:

unit Unit13;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Grids, Buttons, StdCtrls, ExtCtrls;

type
  TDataForm6 = class(TForm)
    EditingGB: TGroupBox;
    Shape1: TShape;
    Label3: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    SaveBtn: TButton;
    PrintBtn: TBitBtn;
    BackBtn: TButton;
    AddRowBtn: TButton;
    DeleteRowBtn: TButton;
    CloseBtn: TButton;
    NextBtn: TBitBtn;
    AnketOpenBtn: TBitBtn;
    StringGrid1: TStringGrid;
    StatusBar1: TStatusBar;
    PrintDialog1: TPrintDialog;
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    Kafedra, Mounth, Age, KafName, Kafmaster:String;
    Modify:Boolean
  end;

var
  DataForm6: TDataForm6;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TDataForm6.FormResize(Sender: TObject);
begin
  StringGrid1.Top:=0;
  StringGrid1.Left:=0;
  StringGrid1.Width:=Self.ClientWidth;
  StringGrid1.Height:=Self.ClientHeight-EditingGB.Height-StatusBar1.Height;
  EditingGB.Top:=StringGrid1.Height;
  EditingGB.Width:=Self.ClientWidth;
  StatusBar1.Width:=Self.ClientWidth;
  StatusBar1.Top:=Self.ClientHeight-StatusBar1.Top;
end;

procedure TDataForm6.FormCreate(Sender: TObject);
begin
  Self.Constraints.MinWidth:=EditingGB.Width;
end;



end.

Заранее спасибо.

[Alter]

у меня нормально, без ошибок запустился:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    EditingGB: TGroupBox;
    StatusBar1: TStatusBar;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Self.Constraints.MinWidth:=EditingGB.Width;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  StringGrid1.Top:=0;
  StringGrid1.Left:=0;
  StringGrid1.Width:=Self.ClientWidth;
  StringGrid1.Height:=Self.ClientHeight-EditingGB.Height-StatusBar1.Height;
  EditingGB.Top:=StringGrid1.Height;
  EditingGB.Width:=Self.ClientWidth;
  StatusBar1.Width:=Self.ClientWidth;
  StatusBar1.Top:=Self.ClientHeight-StatusBar1.Top;
end;

end.

Исключил не используемые компоненты из формы.

[zetrix]

Исходник давайте, проблемы могут быть и в dfm файле, и косвенно могут влиять другие модули (может это и параноя). Надеюсь их у вас на 13

[mihali4]

Вроде уже дискутировали на эту тему...
http://www.programmersforum.ru/showthread.php?t=31070

[SNUPY]

Вот этот юнит.