Не работает программа

x0:=StrToFloat;

chk1.Checked = False;

procedure TForm1.btn1Click(Sender: TObject);
function f(x:real):real;
begin
f:=x*x
end;
var x,min,max,sr:real;
    k:integer;
begin
x0:=strtofloat(mmo1.Lines[0]);
xn:=strtofloat(mmo1.Lines[1]);
hx:=strtofloat(mmo1.Lines[2]);//вводим и не жмем Enter
if chk1.Checked then
 begin
  min:=f(x0);
  x:=x0;
  while x<=xn do
   begin
    if f(x)<min then min:=f(x);
    x:=x+hx;
   end;
  mmo1.Lines.Add(' ');
  mmo1.Lines.Add(FloatToStr(min));
 end
else if chk2.Checked then
 begin
  max:=f(x0);
  x:=x0;
  while x<=xn do
   begin
    if f(x)<min then min:=f(x);
    x:=x+hx;
   end;
  mmo1.Lines.Add(' ');
  mmo1.Lines.Add(FloatToStr(max));
 end
 else if chk3.Checked then
  begin
   sr:=0;
   k:=0;
   x:=x0;
   while x<=xn do
    begin
     sr:=sr+f(x);
     k:=k+1;
     x:=x+hx;
    end;
   mmo1.Lines.Add(' ');
   mmo1.Lines.Add(FloatToStr(sr/k));
 end
else ShowMessage('Выберите операцию');
end;
 
 
procedure TForm1.btn2Click(Sender: TObject);
begin
mmo1.Clear;
chk1.Checked:=False;
chk2.Checked:=False;
chk3.Checked:=False;
end;
 
procedure TForm1.btn3Click(Sender: TObject);
begin
Close;
end;