Определить четность числа. Если оно четное - окрасить в зеленый цвет, в противном случае - в лиловый

procedure TForm1.Button1Click(Sender: TObject);
begin
case   listBox1.ItemIndex of
0: Label2.Caption:= 'нечетный';
1: Label2.Caption:='четный' ;
2: Label2.Caption:='нечетный' ;
3: Label2.Caption:='четный' ;
4: Label2.Caption:= 'нечетный';
5: Label2.Caption:='четный';
6: Label2.Caption:='нечетный';
7: Label2.Caption:= 'четный';
8: Label2.Caption:= 'нечетный';
9 : Label2.Caption:= 'четный';
 
  end;
end;

procedure TForm1.edt1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_RETURN then //Если нажата клавиша Enter
if lst1.Items.Count>=5 then ShowMessage('Превышено допустимое количество элементов!')
else
begin
//и кол-во элем-в не больше 5
lst1.Items.Add(edt1.Text); //добавляем в список значение
edt1.Clear; //очищаем текстовое поле после добавления
 end;
 
end;
 
procedure TForm1.lst1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
begin
with TListBox(Control) do
begin
  if Odd(StrToInt(Items[Index]))then  //если число - нечетное
   Canvas.font.Color :=clPurple //окрашиваем шрифт  в лиловый цвет
  else
   Canvas.Font.Color:=clGreen; //иначе в зеленый
   Canvas.FillRect(rect);
   Canvas.TextOut(rect.Left,rect.Top,Items[Index]);
 
 end;
 
end;
 
end.