Min funktion driller

Hej

Jeg har lavet en lille funktion, som skulle vælge en farve alt efter hvilket tal som variablen inden holder. Neden for ses hvordan jeg har bygget det op. Når jeg kører programmet får jeg følgende fejl:
Incompatible types: 'Char' and 'Real'. Hvad skal jeg gøre for at få det til at virke ?

var
  mci : array['0'..'9'] of Tcolor = (clblack, $884800, clred, $FFB830, clYellow, $00F028, clblue, $B810FF, clGray, clWhite);
r1 := real;
farve1 := Tcolor;



procedure
begin

  r1 := 2;
  farve1 := mci [r1];

end;