Приложение типа «Будильник» Delphi

Мне нужно сделать простое приложение-будильник, которое вместо воспроизведения звука будет загружать файл на ftp (последнее выяснилось). Таймеры оказались неэффективными , когда дело доходит до выполнения потока.

Вот что я получил на данный момент:

var
ttime     : tDateTime;
timerstr  : string;
timealarm : string;
aThread : TMyThread;
begin
aThread := tMyThread.Create(false);
ttime := Now;
timestr := FormatDateTime('hh:nn:ss', ttime);
timealarm := '09:30:30';
if timestr = timealarm then
aThread.Resume; //The thread will execute once and terminate;
end;

Не могли бы вы придумать другой способ сделать эту команду более эффективной один раз в день?

Спасибо.