Mudar Cor de 1 Item do ListBox ??? (URGENTE)

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if Index = 0 then
Listbox1.Canvas.Font.Color := clBlue
else Listbox1.Canvas.Font.Color := clGreen;
ListBox1.Canvas.TextOut(Rect.Left , Rect.Top, (Control as TListBox).Items[Index])
end;