Exeption bei m:=inttostr(integer(mm))

[Teekeks]

Hi!
Ich habe wiedereinmal ein Problem.
Und zwar folgendes:
Ich will mir einen Erinnerer Bauen, habe aber ein Problem mit dieser Procedure:

Delphi-Quellcode:

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;

Dort bleibt er mit ner Exeption bei "deli:=deli+' ';" stehen.
Manchmal aber auch in dieser Procedure:

Delphi-Quellcode:

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;

Bei "m:=inttostr(integer(mm));".
Und das lustigste ist: Ich benutze diese procedure (uppdateevents)
ständig. Und beim Starten(er soll alles laden) funktioniert das auch. nur nicht wenn ich die aus Form2 anspreche(Main.uppdateevents.

Ich weis echt nicht was ich falsch mache...

bitte helft mir!

gruß Teekeks