Вызов процедуры из дополнительного модуля

[vedro-compota]

Не могу разобраться с модулями Делфи . Hottabych с функцией помог,)) теперь вот процедуры.
Переношу три процедуры из модуля основной программы в дополнительный , который теперь выглядит так :

unit extraproc;

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 var Form1: TForm1;
implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
stringgrid1.ColCount:=strtoint(edit1.text);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if not (Key in [#8, '0'..'9']) then
    begin
      ShowMessage('Пожалуйста, укажите целое положительное число');
      Key := #0;
    end ;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if not (Key in [#8, '0'..'9']) then
    begin
      ShowMessage('Пожалуйста, укажите целое положительное число');
      Key := #0;
    end ;
end;   
end.

В основном модуле все фрагменты кода, относящиеся к этим процедурам я поместил в фигурные скобки, но Делфи говорит :

First chance exception at $76D9FBAE. Exception class EReadError with message 'Invalid property value'. Process Project1.exe (5088)

в чём же ошибка ?
(прикладываю архив- процедуры лежат в модуле "extraproc.pas")

[Grag]

А зачем br.pas из проекта выкинул??? Как его скомпилировать теперь?

[vedro-compota]

я его переименовал его в "func.pas" ))

[Terran]

Немного не понятно... Скажите, пожалуйста, как должны называться функции в отдельном модуле? Насколько я понял, одна из них называется fg? И отдельный модуль Вы имеете в виду модуль, который подключается к проекту?

[vedro-compota]

fg - работает. но когда помимо модуля func.pas я подключаю extraproc.pas ( подключаю - в смысле переношу процедуры из модуля unit1.pas в extraproc.pas ) возникает ошибка.... вот как.

[Terran]

Что-то я всё равно не уловил смысл, что должно быть.
Вот Ваш исходничёк 1.rar я его немного подправил. Подключил модули func и extraproc. Только у Вас в коде много лишнего. У меня всё работает.
P.S. У данного проекта основной модуль Unit1.pas Менять его на extraproc.pas не стоит.

[vedro-compota]

поправили.. ))) но что именно !?? вот в чём вопрос ))))

история этого измученного "проекта такова":
1) В начале все четыре процедуры и функция были в unit1.pas
2) Потом функцию fg я перенёс в func.pas (не работало, но помог Hottabych )
3) Потом три процедуры перенёс в ехtraproc.pas (не работало, но помог Terran))
4) Теперь работает.....но что же вы исправили?

[Terran]

4) Теперь работает.....но что же вы исправили?

Написал правильные названия в модулях и подключил их к проекту. Сделал обработчики событий для кнопок на главной форме.

[vedro-compota]

теперь в unit1 подключил модули func и extraproc , но всё равно не работает, хотя всё вроде , как и в исправленном вами варианте .... а что вы с обработчиками событий делали?
(снова прикреплю неработающий архив. простите за несообразительность)

[Terran]

а что вы с обработчиками событий делали?

Поставил событие на кнопку button1. В разделалх Uses удалил ненужный модуль br. У Вас лишнее описание в модуле самого проекта (Project\View Source) Там нужна только строчка

Unit1 in 'Unit1.pas' {Form1};