А где же наш будильник ?

А почему это мы еше без будильника?

Вот наше сердце,мозг будильника смотрите разбирайтесь,позже все допишу что не хватает сердцу,объясню и расскажу.



{--- Calculate time ---}
Procedure MyTimer(Alarm:string; var curTime:string);
var sys:_systemtime;
h,m:string;
begin
GetLocalTime(sys);

h:=inttostr(sys.wHour);
if length(h)<>2 then
begin
h:='0'+h;
end;

m:=inttostr(sys.wMinute);
if length(m)<>2 then
begin
m:='0'+m;
end;

curtime:=h+':'+m;

if curTime=Alarm then begin form1.Timer1.Enabled:=false;
unit2.Form2.ShowModal;
end;

end;