Проблема с условием

[FanRa3]

if c+d = 2 then
begin
if Edit1.Text = Edit2.Text then
begin
Shape1.Brush.Color := RGB(0,255,0);
end
else
Shape1.Brush.Color := RGB(255,0,0);
Timer6.Enabled := true;
Timer6.Enabled := false;
Timer4.Enabled := true;
Timer1.Enabled := false;
Timer2.Enabled := false;
end;
end;

Почему компилятор при равенстве двух строк выполняет

else
Shape1.Brush.Color := RGB(255,0,0);
Timer6.Enabled := true;
Timer6.Enabled := false;
Timer4.Enabled := true;
Timer1.Enabled := false;
Timer2.Enabled := false;

и пропускает

Shape1.Brush.Color := RGB(255,0,0);

не могу понять, почему?
строки равные, а он выполняет условие при неравенстве

[Roof]

if Edit1.Text = Edit2.Text then
begin
Shape1.Brush.Color := RGB(0,255,0);

При равенстве двух строк выполняется только

Shape1.Brush.Color := RGB(0,255,0);

В другом случае выполняется только:

Shape1.Brush.Color := RGB(255,0,0);

с begin и end повнимательнее разберись.

А этовыполнится всегда, при условии c+d = 2

Timer6.Enabled := true;
Timer6.Enabled := false;
Timer4.Enabled := true;
Timer1.Enabled := false;
Timer2.Enabled := false;

[Sanprof]

вот можно так переписать ваш код и вам все станет понятно, почему, как и зачем.

if c+d = 2 then
begin
  if Edit1.Text = Edit2.Text then
    Shape1.Brush.Color := RGB(0,255,0)
  else
    Shape1.Brush.Color := RGB(255,0,0);

  Timer6.Enabled := true;
  Timer6.Enabled := false;
  Timer4.Enabled := true;
  Timer1.Enabled := false;
  Timer2.Enabled := false;
end;
//end;{<- а это лишний end}

ну а вобще я так понимаю вам надо это

if c+d = 2 then
begin
  if Edit1.Text = Edit2.Text then
    Shape1.Brush.Color := RGB(0,255,0)
  else
  begin
    Shape1.Brush.Color := RGB(255,0,0);
    Timer6.Enabled := true;
    Timer6.Enabled := false;
    Timer4.Enabled := true;
    Timer1.Enabled := false;
    Timer2.Enabled := false; 
  end;
end;{<- теперь это end не лишний}

P.S.
Умейте понятно и правильно писать код - это вам на будущее, сэкономите уйму времени