Пытаюсь добраться через Sender до владельца и изменить Edit расположенный на владельце, но не чего не происходит

[Fantomas_RUS]

Добрый день.
Такой вопрос. Я описал некий класс формы

TOptionForm = class(TForm)
private
 procedure Test3(Sender: TObject);
public
 Edit1: TEdit;
constructor CreateNew(AOwner: TCompanent); reintroduce;
end;

Пытаюсь добраться через Sender до владельца и изменить Edit расположенный на владельце, но не чего не происходит. Хотя Sender, то бишь вызвавшего событие, я могу изменить параметры. Куда копать?

.
.
.
создаю этот класс
var F: TOptionForm; A: TSpeedButton;
begin
 F:= TOptionForm.CreatNew(Self);
 With F do
 begin
  Name:= 'FormOption1';
  BorderStyle:= bsDialog;
  Position:= poScreenCenter;
  Height:= 200;
  Width:= 300;
  Parent:= Self;
  Visible:= true;
 end;

 A:=TSpeedButton.Create(F);
 With A do
 begin
  Name:= 'SButton1';
  Caption:= 'Iaiea n iocueie';
  Top:= 30;
  Left:= 5;
  Height:= 20;
  Width:= 100;
  Parent:= F;
  OnClick:= F.test3;
 end;
//
//
//
procedure TOptionForm.Test3(Sender: TObject);
begin
 I:= 0;
 if (Sender is TSpeedButton) then
  begin
   TSpeedButton(Sender).Caption:= 'wwwwwwwwwwwww';
   TOptionForm(TSpeedButton(Sender).Owner).Edit1.Text:= '11111';
   with TOptionForm(TSpeedButton(Sender).Owner) do Edit1.Text:= 'dsgedgreg';
  end;
end;

[come-on]

И зачем все эти выкрутасы?
Вы просто в дизайнере создать форму не в силах?

[Fantomas_RUS]

нет, так как форма создастся с 2 мя целями:
1. Используется один раз за практически всю жизнь программы.
2. Личное обучения с использованием методов класса. Событий.

Есть ли детальные предложения, знатоки? Как правильно делать, что я описал в динамически созданных классах?

[come-on]

1. Используется один раз за практически всю жизнь программы.

и что, как этому мешает дизайнер?

2. Личное обучения с использованием методов класса. Событий.

опять таки, ничего не мешает, если в дизайнере делать
а с учетом того лоскута кода что вы показали, который никак не помогает в понимании того что вы делаете, кроме того что пишете наавось

так что надо за учебники взяться, если ставите цель изучения

[Fantomas_RUS]

Поясни пожалуйста, что ты подразумеваешь под "дизайнером"?

[come-on]

Тоже что и все. В иде делаете новую форму и понеслась...

[min@y™]

поставь брейкпойнт внутрь обработчика и для начала тупо убедись, что в него выполнение доходит.

[Utkin]

Вообще я конечно не большой специалист, но! Если Вы создаете форму сами, то опосля Вы должны создать независимо от формы Edit и там уже указать родителем Вашу форму. Так должно сработать и так Вы сможете потом переназначить родителя. А так получается Вы хотите переназначить кусок объекта другому объекту наплевав на все эти виртуальные таблицы, конструкторы, деструкторы и прочую служебную муть классов. И там не указали как Вы создаете форму? Как написано - Edit на форме, значит и создавать его надо там. Он там создается? Второе - Вы объявили Edit, а создаете СпидБатон, это как вообще? Вы чего-то не договариваете нам...

[Fantomas_RUS]

Коллеги, забыл указать что я в действительности создаю при создании кнопки SButton1 ниже создаю и Edit1

procedure TForm1.BitBtn1Click(Sender: TObject);
var F: TOptionForm; A: TSpeedButton;
begin
F:= TOptionForm.CreateNew(Self);
With F do
begin
 Name:= 'FormOption1';
 BorderStyle:= bsDialog;
 Position:= poScreenCenter;
 Height:= 200;
 Width:= 300;
 Parent:= Self;
 Visible:= true;
end;

A:=TSpeedButton.Create(F);
With A do
begin
 Name:= 'SButton1';
 Caption:= 'Iaiea n iocueie';
 Top:= 30;
 Left:= 5;
 Height:= 20;
 Width:= 100;
 Parent:= F;
 OnClick:= F.test3;
end;

Edit1:=TEdit.Create(F);
With Edit1 do
begin
 Name:= 'Edit1';
 Parent:= F;
 Top:= 30;
 Left:= 105;
 Height:= 20;
 Width:= 145;
 Enabled:= true;
 Text:= PlayerJ.fFolderMuzik;
end;

F.Show;

end;

В обработчик события -> метод программа попадает. Кнопку саму изменить из события(процедуры) я могу. А вот хозяина кнопки(динамическая форма) и что на нем лежит (Edit1) изменить не могу. Если можно опишите по подробнее, как правильно сделать?

[Iron Monk]

Нужно по клику батона изменить текст едита? Или я не так понимаю задачу?