Delphi, 3 ошибки в 1 кусочке кода.

[KaMaKaDzA]

Есть кусочек кода. И в нём 3 ошибки. Помогите исправить, уже 4тый час бьюсь.

procedure TForm1.Button1Click(Sender: TObject);
var x1,x2,x3,y1,y2,y3:real;
begin
  if (x1=x2=x3){Incompatible types}or(y1=y2=y3){Incompatible types}or((x1=y1)and(x2=y2)and(x3=y3)) 
then {operator not applicable to this operand type}
begin
Edit7.Visible:=true;
end;
end;

[Вадим Мошев]

(x1=x2=x3)

Нельзя сравнивать так переменные числового типа!
Замените это конструкцией:

(x1 = x2) AND (x2 = x3)

для y аналогично

далее

then {operator not applicable to this operand type}
begin
Edit7.Visible:=true;
end;

уберите пару begin/end, хотя лично я здесь ошибки не вижу.

[KaMaKaDzA]

Всё работает, спасибо.