Inkompatible typen ???

[yildi]

hallo!

ich habe die folgende prozedur:

Delphi-Quellcode:

procedure TForm1.GradInFarbeUmwandeln(grad: integer);
var
farbe: string;
begin

       if grad >= 0 and grad <= 30 then farbe := 'rot'
  else if grad >= 30 and grad <= 70 then farbe := 'gelb'
  else if grad >= 70 and grad <= 150 then farbe := 'gruen'
  else if grad >= 150 and grad <= 220 then farbe := 'cyan'
  else if grad >= 220 and grad <= 270 then farbe := 'blau'
  else if grad >= 270 and grad <= 0 then farbe := 'rot';

  label13.caption := farbe;

end;

beim compilieren bekomme ich 6 meldungen "inkompatible typen" und der cursor springt zum "then".
hat jemand auf den ersten blick eine idee was hier falsch ist ?

vielen dank!