[sorockinalex]

Ребят, опять не догоняю... Есть процедура, Edit не присутствует на форме. То есть процедура не привязана к объекту, так как объекты динамически создаются. Плюсиком добавляются новые поля и для каждого нужна эта процедура.

Код:

procedure TFAddEquipmentNumbers.EditKeyPress(Sender: TObject);
const
  allowedsymbols: set of Char=['0'..'9'];
var
  Key: Char;  
begin
  if (Key in allowedsymbols) then
  begin
  end
  else key :=#0;
end;

При создании формы создаются первые экземпляры

Код:

procedure TFAddEquipmentNumbers.FormCreate(Sender: TObject);
begin
  SetLength(numberEdit,1);
  SetLength(birthyearEdit,1);

  NumberEdit[0]:=TEdit.Create(Self);
  NumberEdit[0].Parent:=Self;
  NumberEdit[0].Left:=8;
  NumberEdit[0].Top:=69;
  NumberEdit[0].Width:=60;
  NumberEdit[0].Height:=21;
  NumberEdit[0].Visible:=true;
  NumberEdit[0].Enabled:=true;
  NumberEdit[0].OnChange:=EditKeyPress;

  birthyearEdit[0]:=TEdit.Create(Self);
  birthyearEdit[0].Parent:=Self;
  birthyearEdit[0].Left:=76;
  birthyearEdit[0].Top:=69;
  birthyearEdit[0].Width:=30;
  birthyearEdit[0].Height:=21;
  birthyearEdit[0].MaxLength:=2;
  birthyearEdit[0].Visible:=true;
  birthyearEdit[0].Enabled:=true;
end;

Что сделать с Key??? Как его получить?????