Помогите разобратся с программкой

[keyssi]

Я пишу прогу про шахматы на Delphi .. типа : известны координаты двух фигур разного цвета на шахматной доске. Определить бьют ли друг друга эти фигуры.
Моя задача состоит в том что просто составить просто указать как ходять шахматы, но у меня проблема получилась с ферзями..не компилет совсем...
procedure TForm1.Button1Click(Sender: TObject);
Var x1,y1,x2,y2:integer;
begin
x1:=strtoint(edit1.Text);
y1:=strtoint(edit2.Text);
x2:=strtoint(edit3.Text);
y2:=strtoint(edit4.Text);
Case RadioGroup1.ItemIndex of
0:if (x1=x2) or (y1=y2)then showmessage('да')
else showmessage('нет');
1: if abs(x2-x1) = abs(y2-y1) then showmessage('да')
else showmessage('íåò');
( вот код к Ферзям) 2: if ((x1=x2) or (y1=y2))*(abs(x2-x1) = abs(y2-y1)) then showmessage('да')
else showmessage('нет); не могу сообразить как они ходят правильно

3: if abs(x1-x2) or abs(y1-y2)= 2 then showmessage('да')
else showmessage('нет');
Помоги очень прошу вас

[danekne]

end в конце нету

[Deamonig]

   {если на одной линии по Х, или на одной линии по Y, или расстояние по Х и по Y между фигурами равно между собой, т. е. они на одной диагонале}
if (x1=x2) or (y1=y2) or (abs(x1-x2)=abs(y1-y2))
then 
Showmessage('да')
else 
Showmessage('нет');

[keyssi]

Сообщение от Deamonig

   {если на одной линии по Х, или на одной линии по Y, или расстояние по Х и по Y между фигурами равно между собой, т. е. они на одной диагонале}
if (x1=x2) or (y1=y2) or (abs(x1-x2)=abs(y1-y2))
then 
Showmessage('да')
else 
Showmessage('нет');

Спасибо большое)) Получилось))))