Формы в Pascal ABC

[Locksmaster]

Помогите мне! Как написать форму для программы, которая считает гипотенузу прямоугольного треугольника?

[warca]

var a,b:integer;
     gipot:real;
begin
...
gipot:=sqrt(sqr(a)+sqr(b));
...
end.

[NetSpace]

запускаете Delphi. ваша форма уже появится. Вам на неё надо кинуть пару EDIT'ов, одну кнопку BUTTON и один LABEL.
а дальше всё как вам во втором сообщении написали:

procedure TForm1.Button1Click(Sender:TObject);
begin
   Label1.Caption:=sqrt(sqr(StrToInt(Edit1.Text))+sqr(StrToInt(Edit2.Text)));
end;

по умолчанию, катеты должны быть числами целыми.
естественно,проверку на ошибки тут не делал. мож вы вместо чисел текст наберёте.
но обработка ошибок - это уже другая тема и другой вопрос...