Missing operator or semicolon

[MiaKotova]

не могу понять, что исправить тут В отмеченных местах и показывает ошибку. Помогите пожалуйста
procedure TForm1.Button1Click(Sender: TObject);
var a,r,d:real;
begin
a:=strtofloat(Edit1.Text);
r:=strtofloat(Edit2.Text);
d:=sqrt(a*a);
if r>=d/2 then
Edit3.Text('Квадрат поместится в круг')
else
Edit3.Text('Квадрат не поместится в круг');
end;

[Mad_Cat]

Edit3.Text:='Квадрат поместится в круг'
else
Edit3.Text:='Квадрат не поместится в круг';

[MiaKotova]

Спасибо огромное!