TSwitch ile Ttimer bağlama yardım

[eskalibur_]

selam arkadaşlar 40 yaşından sonra öğrenciliğe başlamış birisiyim. Mobil programlama dersinde hocanın verdiği ödevi yapmaya çalışıyorum. Ödevim android el feneri uygulaması. fakat birde zamanlayıcı koymam lazım yani belirtilen saat gelince kamera flashı yanıp sönecek. flashı buton ile yakıp söndürebiliyorum ama zamanlamada takıldım yardım ederseniz sevinirim.
şuana kadar geldiğim aşama

Kod: Tümünü seç

unit selcukfeneri;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Media,
  FMX.StdCtrls, FMX.DateTimeCtrls, FMX.Objects;

type
  TForm1 = class(TForm)
    Switch1: TSwitch;
    CameraComponent1: TCameraComponent;
    Text1: TText;
    ImageControl1: TImageControl;
    Text2: TText;
    Timer1: TTimer;
    procedure Switch1Switch(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}
procedure TForm1.Switch1Switch(Sender: TObject);
begin
  if Switch1.IsChecked then begin
    if CameraComponent1.HasFlash then
      CameraComponent1.TorchMode := TTorchMode.tmModeOn;
  end else begin
    if CameraComponent1.HasFlash then
       CameraComponent1.TorchMode := TTorchMode.tmModeOff;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

  end;

end;

end.

[barisatalay]

Mesela saat geldiğinde yanma şekli şu olabilir aklımdan yazıyorum. Biraz düzenleyerek gerçeğe uyarlanabilir gibi.

Kod: Tümünü seç

//Timer içerisine
if (TimeToString(Now) > '12:00:00') and (TimeToString(Now) < '12:01:00')  then
begin
  if Switch1.IsChecked then begin
    if CameraComponent1.HasFlash then
      CameraComponent1.TorchMode := TTorchMode.tmModeOn;
  end else 
  begin
    if CameraComponent1.HasFlash then
       CameraComponent1.TorchMode := TTorchMode.tmModeOff;
  end;
end;