Interrupt-Flag reagiert nicht

Hallo,

ich Versuch grad ein Hardwareinterrupt auszulösen aber das GIFR-Register 
reagiert nicht auf den Flankenwechsel am Taster.Ich nutz den ATmega8 und 
den E-Lab Compiler und als Sprache Pascal.Das Programm soll erstmal nur 
im Interrupt eine Led zum Leuchten bringen damit ich das es auch 
funtzt.Ich hab schon in anderen Foren nach gefragt aber nur antworten 
bekommen hoffe hier hilft mir endlich ma jemand.

Hier ist mein bisheriges Programm:

procedure InitPorts;
begin
  DDRD := %0010000;  //PortD.5 als Ausgang
  GICR := %10000000; //INT1 aktiviert
  MCUCR:= %00001100; //steigende Flanke an INT1 Löst ein Interrupt aus

end InitPorts;

Interrupt Int1;
begin
  PortD.5:=1;
end;
{--------------------------------------------------------------}
{ Main Program }
{$IDATA}

begin

  InitPorts;
  EnableInts;        //Globale Interrupt eingeschaltet


  loop

  endloop;
end Interrupts.

MFG Thomas