請問各位大大： 我有看過了之前的動態産生元件的事件如何寫， 但是如果不只是一個元件的事件的情況， 每一個動態産生的元件的事件怎麼寫？ 我的程式如下： procedure EditKeyPress(Sender: TObject; var Key: Char); for i := 1 to 10 do begin edit:=tedit.Create(Application); edit.Name:='Edit' inttostr(i); edit.Parent:=form1; edit.OnKeyPress:= editKeyPress; end; 煩請幫幫我解答一下，謝謝。

您可以在

for i := 1 to 10 do
begin
edit:=tedit.Create(Application);
edit.Name:='Edit'   inttostr(i);
edit.Parent:=form1;
edit.Tag := I;
edit.OnKeyPress:= editKeyPress;
end;

添加 Tag ，作為識別判斷。
在
procedure EditKeyPress(Sender: TObject; var Key: Char);
begin
  Case Tcomponent(Sender).Tag of
    1:
    2:
     ...
  end;
end;

真是太謝謝wameng大大了，我的問題解決了， 但是又遇到另一個問題， 就是ComboboxChange時動態産生10個edit， 但當Combobox再一次的Change時，會出現問題， 因為之前動態産生的edit沒有free掉， 所以有錯，請問現在要怎樣free掉， 要將程式寫在Combobox的那一個事件？

您可以先定義一陣列物件

Private
 AryEdit : array[1..10] of Tedit;
  ....    if Assigned(AryEdit[1]) then
  For I:=1 to 10 do FreeAndNil(AryEdit[I]);    for I := 1 to 10 do
begin
  AryEdit[I] := TEdit.Create(Application); {應該是Form1}
  AryEdit[I].Name:='Edit'   inttostr(i);{沒什麼意義！}
  AryEdit[I].Parent:=form1;
  AryEdit[I].Tag := I;
  AryEdit[I].OnKeyPress:= editKeyPress;
end;