Обработка события Onkeypress в дополнительном модуле

[vedro-compota]

Доброго времени суток! ))
Пожалуйста, подскажите , что у меня не правильно.
это код основного модуля:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses proc;

{$R *.dfm}

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
proce;
end;

end.

а вот используемый код модуля ( дополнительного) proc.pas :

unit proc;

interface
procedure proce  (var  key : char );

implementation
procedure proce (var  key : char ) ;
begin
  if not (Key in [#8, '0'..'9']) then
  begin
    ShowMessage('ПОжалуйста, укажите целое число');
    Key := #0;
  end;
end;
end.

Почему-то не работает ShowMessage .....но даже если комментарю его- вызов процедуры всё равно не происходит. Видимо что-то с передаваемым кеем.
Помогите.
(Прикладываю архив. )

[W0LF]

А вы задали параметр в своей процедуре?

uses
  proc; 

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
proc.proce(Key);
end;

[vedro-compota]

теперь вот задал ))
Просто я не знал, что для процедуре можно таким образом параметры передавать. можно значит....
работает ) )) спасибо,W0LF )
-------------------------------------------
Showmessage не работал, так как я не подключил модуль dialogs.
надо так:

unit proc;


interface
uses Dialogs;
procedure proce  (var  key : char );

implementation
procedure proce (var  key : char ) ;
begin
  if not (Key in [#8, '0'..'9']) then
  begin
    ShowMessage('ПОжалуйста, укажите целое число');
    Key := #0;
  end;
end;
end.