Цикл - Free Pascal

Формулировка задачи:

Почему не выполняется цикл?

procedure TForm1.Timer4Timer(Sender: TObject);
var k:integer;
begin
  k:=0;
  if k mod 2=0 then begin  Form1.Color:=ClCream; k:=k+1;end
else Form1.Color:=ClRed; k:=0;
end;
 
end.

Решение задачи: «Цикл»

Листинг программы

procedure TForm1.Timer4Timer(Sender: TObject);
begin
  if Form1.Color = ClCream
    then Form1.Color := ClRed
    else Form1.Color := ClCream
end;

Объяснение кода листинга программы

В данном коде определен обработчик события таймера с номером 4 для объекта Form1. При срабатывании этого обработчика выполняется следующая последовательность действий:

Проверяется текущее значение свойства Color объекта Form1.
Если текущее значение равно ClCream, то свойство Color объекта Form1 устанавливается в ClRed.
Если текущее значение не равно ClCream, то свойство Color объекта Form1 устанавливается в ClCream.