creacion

[armando]

hola a todos nuevamente
utilizo delphi 5 y paradox
he creado unos componentes( tedit) en timpo de ejecucion

Código Delphi [-]
 procedure TFormulario.crear;
 var
   edt1:tedit;
 begin
   edt1 := TEdit.CReate(Formulario);
   edt1.Parent :=PANEL2;
   edt1.Name :='R1';
   edt1.Top := 40;
   edt1.Left := 16;
   edt1.Width := 33;
   Edt1.Text :=DM.QPTT1.ASSTRING;//query
   EDT1.TabOrder:=0;
   EDT1.OnKeyPress:=Edit1KeyPress;
   edt1.OnChange:=Edit1Change;
   {...}

hasta aqui todo bien

quiero crear un procedimiento para este objeto creado,

similar a este

Código Delphi [-]
 procedure TFormulario.Edit1Change(Sender: TObject);
 begin
   IF EDT1.TEXT='' THEN
   BEGIN
     EDT1.TEXT:='0';
     EDT1.SelectAll;
   END;
 end;

como lo hago en tiempo de ejecucion
gracias por su pronta respuesta