[Darv1n]

Преверьте пож правильно ли решена задача

Пусть элементами прямоугольного равнобедренного треугольника являются:
1) катет
2) гипотенуза
3) высота, опущенная из вершины угла на гипотенузу
4) площадь
Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значения всех остальных элементов треугольника.
Предусмотреть очистку полученных результатов и ввод новых данных.

Сама задача:

[lmikle]

я бы сделал по другому.
У тебя все-равно задается только одно значение и его тип.
Так зачем тебе 4 эдита???
Т.е. тебе надо выбрать тип заданного отрезка, ввести значение.
Далее по коду.
Сделать 4 процедуры расчета. Каждая принимает на вход собственно значение и по нему вычисляет все остальное и выводит, например, в Memo. По изменению типа и/или значения, мемо очищаем. тогда и кнопка не нужна.
Для выбора типа значения использовать RasioGroup, в которой можно просто по ItemIndex сделать Case:

Код:

procedure TForrm1.Button1Click(Sender : TObject);
var
  AValue : Integer;
begin
  AValue := StrToInt(Edit1.Text);
  Case RadioGroup1.ItemIndex Of
    0 : CalcByKatet(AValue);
    1 : CalcByGipo(AValue);
    2 : CalcByHeight(AValue);
    3 : CalcBySquare(AValue);
    Else ShowMessage('Тип значения не выбран.');
  End;
end;

Так короче, читабельней и красивше...