Вывод результата в Memo

[Giggs13]

Написал код. Ввожу данные, нажимаю button, а результата никакого. Подскажите,пожалуйста,что не так с кодом..

unit Unit1;
 
interface uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Button1: TButton;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a: integer;
var b, c, max, min, k, sqrb, sqrtc: real;
begin
 a:=StrToInt(Edit1.Text);
 b:=StrToFloat(Edit2.Text);
 c:=StrToFloat(Edit3.Text);
 sqrb:=Sqr(b);
 sqrtc:=Sqrt(c);
 max:=0;
 min:=0;
 k:=0;
 if (a>sqrb) then max:=a else max:=sqrb;
 if (sqrtc>max) then max:=sqrtc;
 if (a<b) then min:=a else min:=b;
 k:=(max-min)/min;
 Memo1.Clear;
 Memo1.Lines.Add('Результат');
 Memo1.Lines.Add('k=' + FloatToStr(k));
 Memo1.SetFocus;
end;
end.

[ArtGrek]

не выводит ничего или выводит так

Результат
0

P.S. код надо оформлять, там кнопочка есть #