procedure TForm1.UppdateEvents;
var i,x:integer;
    deli:string;
    s:integer;
    a:string;
begin
  Form1.Cursor:=crHourGlass;
  AllEvents:=LoadAllSimpleEvents;
 for i:=0 to High(AllEvents) do

    if IsInTime(20,AllEvents[i].Date) then
    begin
      for x:=1 to 21-Length(AllEvents[i].Title) do
        deli:=deli+' ';
      Listbox1.Items.Add(AllEvents[i].Title+deli+DateAsString(AllEvents[i].Date,'.')+' '+InXDays(AllEvents[i].Date));
      deli:='';
    end;
 Feiert:=TFeiertage.Create;
 Feiert.Jahr:=YearAsInteger(Date);
 Feiert.Land:=BB;
 for s:=trunc(Date-3) to trunc(Date+30) do
 begin
   DateAsString(s,'.',a);
   if Feiert.IstFeiertag(DayAsInteger(s),MonthAsInteger(s),YearAsInteger(s)) then
     Listbox1.Items.Add('Feiertag '+a+' '+InXDays(s));
 end;
 Form1.Cursor:=crDefault;
end;

function DateAsString( Dateintern:TDateTime;Delemiter:string):string;
var yy,mm,dd:Word;
    y,m,d:string;
begin
  DecodeDate(Dateintern,yy,mm,dd);
  d:=inttostr(integer(dd));
  m:=inttostr(integer(mm));
  y:=inttostr(integer(yy));
  result:=d+Delemiter+m+Delemiter+y;
end;