Inkompatble Typen???

[Sankar]

Hallo leute,

Ich bin neu hier und habe mir gedacht das ihr mir vielleicht bei meinem kleinem Problem helfen könnt .

Delphi-Quellcode:

procedure TForm1.Btn_ausfuehrenClick(Sender: TObject);
 var    monat,tage,jahr:integer;
  Jzahl:integer;
begin
  monat:=strtoint(Edt_monat.text);
  jahr:=strtoint(Edt_jahr.text);
  Edt_tage.text:=inttostr(tage);


 case monat of

  1,3,5,7,8,10,12:tage:= 31;
  4,6,9,11:tage:=30;


  end;

  If ((Jzahl mod 4) = 0) then
    begin
      case monat of
        2:tage:=29;
     end
      end

     else

      begin
       If (((Jzahl mod 100)= 0       and    (Jzahl mod 400)) <> 0) then



         begin
          case monat of
           2:tage:=28;
            end
             end

      else

        begin
         case monat of
          2:tage:=29;
           end;

end;
end;
end;

end.

In dieser Zeile
     If (((Jzahl mod 100)= 0 and (Jzahl mod 400)) <> 0) then bekomm ich folgende Fehlermeldung: E2008 Inkompatible Typen

Meine Frage ist nun wo ist der Fehler? Ich find irgendwie keinen und versteh auch nicht warum er Inkompatible Typen als Fehlermeldung bringt. Schon mal Danke für eure hilfe!!

mfg Sankar