Inkompatible typen ???

[Tormentor32]

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;

Versuchs mal so!

Edit: Verdammt ich hab so schnell geschrieben wie ich konnte