[M.A.D.M.A.N.]

Код:

if (abs(a-c)<2) and ((abs(b-d))<2) then Edit25.Text:='Король угрожает полю cd!' else Edit25.Text:='Король НЕ угрожает полю cd!'