procedure oneClass.btnOKClick(Sender: TObject);
begin
FindComponent………………
end;

procedure oneClass.oneButtonClick(Sender: TObject);
var
AForm: TForm;
This: oneClass;
begin
This := Self;

AForm := TForm.Create(Application);

Self := AForm;

with TButton.Create(AForm) do begin
Name := 'btnOK';
Kind := bkOK;
OnClick := btnOKClick;
Partent := AForm;
end;

Self := This;

AForm.ShowModal;
end;