Мини-проекты в Delphi

Проект «Перевод градусов в радианы»

 Из математики известны формулы  радианы=градусы/180*?  и градусы=радианы*180/?.
Особенность этой программы в том, что программа будет реагировать на то, какое число ей задано. Разместим на форме два текстовых окна TEdit для значений и две метки TLabel с соответствующими надписями. Текст в текстовых окнах – пустой. Две кнопки с надписями «Перевести» и «Выход».

Для того, чтобы программа правильно реагировала на информацию в окнах нужно использовать условный оператор. Для кнопки «Выход» процедура простая –
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
Для кнопки «Перевести» -
procedure TForm1.Button1Click(Sender: TObject);
begin

end;
Между строкой procedure TForm1.Button1Click(Sender: TObject); и begin объявим локальные переменные
var g,r:real;
где- g - градусы, r-радианы,real-действительные числа;
После begin запишем следующее:

if (Edit1.Text<>'') and (Edit2.Text<>'') then exit;

Это значит, что если оба окна не пустые – выход из процедуры (непонятно, что вычислять!).
Аналогично можно было бы написать для случая, когда оба окна пустые.
Если в окно градусы занесено число, второе пустое –

if (Edit1.Text<>'') and (Edit2.Text='') then
   begin
      g:=StrToFloat(Edit1.Text);
      r:=  g*Pi/180;       
      Edit2.Text:=FloatToStr(r);
   end;