[DELPHI]: Definire a runtime l'evento OnChange

[ganesha]

ma.. l'indice dell'array lo posso recuperare in qualche modo dal Sender?

tipo:

    DdeField[i].OnChange:=myTextBoxOnChange;
...

procedure TForm1.myTextBoxOnChange(Sender: TObject);
var
  tmp_dde: TDdeClientItem;
  i: integer;
begin
  if Sender is TDdeClientItem then
  begin
    i:=Sender.boooooo;
    tmp_dde := Sender as TDdeClientItem;
    textbox[i].Text:=tmp_dde.Text;
  end;
end;