Dummes kleines Problem: Undefinierter Bezeichner

[quakergod]

Hi leute, hab folgendes Problem:
Ich benutze diesen Code. :

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListbox) do
  begin
    if odSelected in State then //Prüft, ob ein Item markiert ist
      Canvas.Brush.Color := clRed; //Canvas-Hintergrundfarbe auf Rot setzen
    Canvas.FillRect(Rect); //schön ausmalen
    Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]); //Text drüberpinseln
  end;
end;

und jetzt gibts diesen Parse Error:

Zitat:

[Fehler] Unit1.pas(72): Undefinierter Bezeichner: 'clRed'

Wo muss ich die Farbe clRed "bezeichnen" ?
Danke!!