[Delphi] Jak zaplanować funkcję na określoną godzinę z ComboBox?

procedure TForm1.btnCtrlClick(Sender: TObject);
begin
  with ComPort1.FlowControl do
    if ControlDTR=dtrEnable then
    begin
      ControlDTR:=dtrDisable;
      Poup.Caption:='Zaświeć';
      btnCtrl.Caption:='Zaświeć';
    end
    else
    begin
      ControlDTR:=dtrEnable;
      Poup.Caption:='Zgaś';
      btnCtrl.Caption:='Zgaś';
    end;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, INIFiles, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  INI: TIniFile; // Deklaracja zmiennej INI

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  INI := TIniFile.Create(extractfilepath(application.ExeName)+'zadania.ini'); // Załadowanie pliku zadania.ini z głównego katalogu programu
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  INI.Free; // Zwolnienie zmiennej INI
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  If Ini.SectionExists(Timetostr(now)) then // Jeżeli sekcja w ini istnieje (aktualny czas)
  begin
    Showmessage(INI.ReadString(Timetostr(now), 'komunikat', '')); // Wyświetlenie komunikatu z pliku INI o podanej godzinie
  end;
end;

end.

[20:50:00]
komunikat=Komunikat, który wyświetli się o 20:50
[20:50:05]
komunikat=Pięć sekund minęło od poprzedniego komunikatu ;-)