大家帮个忙!!!!!!!!

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,buttons;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private    { Private declarations }
  public
  edit:TEdit;
  procedure mybuttonClick(Sender: TObject);
    { Public declarations }
  end;var
  Form1: TForm1;
implementation{$R *.DFM}
uses unit2;
procedure TForm1.mybuttonClick(Sender: TObject);begin   edit.text:=DatetoStr(Form2.DateTimePicker1.Date);
end;
procedure TForm1.Button1Click(Sender: TObject);
var  speedbutton:TSpeedbutton;
begin
       edit:=Tedit.create(Self);
   edit.parent:=form1;
   speedbutton:=tspeedbutton.create(Self);
   speedbutton.parent:=form1;
   speedbutton.Left:=100;
   speedbutton.Top:=100;
   speedbutton.OnClick:=mybuttonClick;end;end.
运行一下，看看是不是你要的结果