procedure Alarm(Sender: TObject);
begin
if TDateTime(Now).AsString = Edit1.Text or TDateTime(Now).AsString = Edit2.Text or
TDateTime(Now).AsString = Edit3.Text or TDateTime(Now).AsString = Edit4.Text
TDateTime(Now).AsString = Edit5.Text or TDateTime(Now).AsString = Edit6.Text or
TDateTime(Now).AsString = Edit7.Text or TDateTime(Now).AsString = Edit8.Text then
Form5.Visible = True;
end;
Ali naravno ne radi, ko ni sve dosad sto nije radilo. Kako se pravilno koristi TDateTime ili ako ima neki drugi nacin da napravim alarm?