Создание обработчиков событий FormCreate и Button1Click

procedure FormCreate(Sender: TObject);
 procedure Button1Click(Sender: TObject);
private {Private declarations}
public  {public declarations}
end;
var
 Form1: TForm1;
Implementation
{$R *.DFM}
   procedure Tform1.FormCreate(Sender: TObject);
       begin 
        Edit1.text:='0,1’;
        Edit2.text:='0,356';
        Edit3.text:='0';
        Memo1.Clear;
        Memo1.Lines.Add('Результат уч. гр.Т-091 Иванова А.К.');
    end;
procedure Tform1.Button1Click(Sender: TObject);
  var x,y,z,u,max:extended;
begin
// Ввод исходных данных и их вывод в окно Memo1 
         x:=StrToFloat(Edit1.Text);
         Memo1.Lines.Add(' x='+Edit1.Text);
         y.=StrToFloat(Edit2.Text);
         Memo1.Lines.Add(‘y='+Edit2.Text);
         z:=StrToFloat(Edit3.Text);
         Memo1.Lines.Add(‘z='+Edit3.Text);
//Проверка номера нажатой кнопки и выбор соответствующей ей функции 
case RadioGroupl.ItemIndex of 
    0: u:=cos(x);
    1: u:=sin(x);
    2: u:=sin(x)/cos(x);
  end;
//Проверка состояния кнопки CheckBox1 
    if CheckBoxl.Checked then 
    begin 
        u:=abs(u);
        y:=abs(y);
        z:=abs(z) 
    end;
//Нахождение максимального из трех чисел 
    if u>y then max:=u else max:=y;
    if z>max then max:=z;
    if CheckBoxl.Checked then 
        Memo1.Lines.Add(' max='+FloatToStrF(max,ffFixed,8,2))
    Else    Memo1.Lines.Add(‘mах='+FlоаtТоStrF(max,ffGenerа1,8,2));
end;
end.