Модуль - треугольник

[Matrix6993]

Добрый вечер! Прошу помощи у программистов в моей нерешаемой для меня проблеме! Я создал модуль в котором есть 3 Edit'a (в которые вводится 3 стороны треугольника) и 1 кнопка по которой мы определяем входные данные на существование треугольника!
вот Код зарограммированной кнопки:

procedure TForm1.Button1Click(Sender: TObject); //кнопка Ввод
begin
if (Edit1.Text = '') or (Edit2.Text = '') or (Edit3.Text = '') then //если хотябы 1 Edit пуст
MessageBox(0, 'В одном из Edit отсутсвуют данные', 'Ошибка', MB_ICONWarning); //то выводим сообщение
exit;

a:=StrToFloat(Edit1.Text); //присваиваем переменную a к Edit1.text
b:=StrToFloat(Edit2.Text); //присваиваем переменную b к Edit2.text
c:=StrToFloat(Edit3.Text); //присваиваем переменную c к Edit3.text

if (a<b+c) and (b<a+c) and (c<a+b) then begin //проверка на существование треугольника (если такие условия истина то существует треугольник)
Label1.Caption:='Данные соответствуют треугольнику!'; //выодим в Label1 сообщение что треугольник существует
p:=a+b+c; //расчет периметра
Button2.Visible:=True; //кнопка Тип
Button3.Visible:=True; //кнопка Периметр
Button4.Visible:=True; //кнопка Площадь
Button6.Visible:=True;
Label6.Visible:=True;
Label7.Visible:=True;
Label8.Visible:=True;
Edit1.Visible:=False;
Edit2.Visible:=False;
Edit3.Visible:=False;
Label6.Caption:=FloatToStr(a);
Label7.Caption:=FloatToStr(b);
Label8.Caption:=FloatToStr(c);
end
else

if (1=1) then begin //если выполняеться данное условие, то треугольник НЕ существует
Label1.Caption:='Нет такого треугольника! Возможно это прямая.';
Button6.Visible:=True;
Edit1.Visible:=False;
Edit2.Visible:=False;
Edit3.Visible:=False;
Label10.Visible:=False;
Label11.Visible:=False;
Label12.Visible:=False;
end;

if (a=b+c) or ( b=a+c) or (c=a+b) then begin //если выполняеться данное условие, то треугольник НЕ существует
label1.Caption:='Нет такого треугольника! Возможно это прямая.';
Button6.Visible:=true;
Edit1.Visible:=False;
Edit2.Visible:=False;
Edit3.Visible:=False;
Label10.Visible:=False;
Label11.Visible:=False;
Label12.Visible:=False;
end;

if (a=0) or (b=0) or (c=0) then //проверка на ввод данных
Label1.Caption:='Введены неверные значения (0,запятая, точка и др.)';
Button1.Visible:=False;
end;

Вот кусок формы:


Проблема в том что дальше этого места которую я выделил жирным, программа не идет! Даже если введены значения во все EDIT'ы то ни чего не происходит после нажатия кнопки!
Как быть подскажите пожалуйста!
Заранее спасибо!

[Larboss]

exit;

У вас exit стоит в теле процедуры, т.е. при любых условиях у вас будет происходить выход из процедуры - ничего, что ниже описано не будет выполняться.

Решение:

if (Edit1.Text = '') or (Edit2.Text = '') or (Edit3.Text = '') then begin
 MessageBox(0, 'В одном из Edit отсутсвуют данные', 'Ошибка', MB_ICONWarning);
exit;
end;

[Matrix6993]

я поставил end;
теперь у меня появились совсем другие ошибки
здесь(выделено)
a:=StrToFloat(Edit1.Text);


описание самих же переменных у меня такое: a,b,c,p,s,p1 : real;

[Larboss]

Смотрим предыдущий пост внимательней. Begin забыли поставить.

[Matrix6993]

ой точно, спасибо вам огромное, очень выручили!