Tworzenie dynamicznego TTimer i TButton w Delphi bez formy - jak to zrobić?

var
    Timer: TTImer;
    Button: TButton;
begin
 Timer := TTimer.Create(Self);
 Button := TButton.Create(Self);
// i tak powiedzmy ze umiem wszystko oprocz zrobienia tego zeby czasomierz zmusic do odliczania
// oraz klikniecia na guzik jak to zrobic
end;

Timer.Enabled := True; // True zeby "chodzil", false zeby zatrzymac
Button.Click;

Timer.Interval := 1000;
Timer.Enabled := True;

if (Button.Click) .....

procedure Form1.Timer1Timer(Sender: TObject)
var licznik: integer;
begin
Inc(licznik) // Znaczy to to samo co licznik := licznik + 1
end;

procedure Form1.Button1Click(Sender: TObject)
begin
Timer1.interval := 1000;
Timer1.enabled := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Guzik : TButton;
  Text : TLabel;
  Czas : TTimer;
begin
  Guzik := TButton.Create(self);
  Text := TLabel.Create(self);
  Czas := TTimer.Create(self);

  with Guzik do
  begin
    Left := 100;
    Top := 25;
    Height := 35;
    Width := 160;
//    Font.Height := 16;
    Font.Size := 12;
    Font.Style := [fsBold];
    Font.Color := clBlue;
    Caption := 'Odliczaj';// ten wlasnie stworzony guzik chce nacisnac zeby mi zaczal odliczac czas przez stworzony timer
  end;

  Czas.Interval := 1000;
  Czas.Enabled := true;
  Czas.Tag := Czas.Tag + 1;// jak odczytac czas takiego czegos

  with Text do
  begin
    Left := 100;
    Top := 100;
    Height := 35;
    Width := 160;
    Font.Size := 12;
    Font.Style := [fsBold];
    Font.Color := clBlue;
    Caption := IntToStr(Czas.Tag);//a tu mi wyswietla ten czas
  end;

//  Guzik.OnClick(Sender);


  InsertControl(Text);
  InsertControl(Guzik);
//nie niszcze obiektow
end;//moze te obiekty powinny byc inaczej zadeklarowane :(

Guzik.OnClick := Button1Click