Найти площадь грани, площадь полной поверхности и объем куба

...
var
a, S, S1, S2 : byte;//если пользователь в едит введет больше 65535 - то будет ошибка, используq integer он до 2ккк
begin
  a := Strtoint(edit1.caption);
  S := sqr(a); //площадь грани
  S1 := S*6; //площадь полной поверхности
  S2 := sqr(a)*a //объем куба
end;
...

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
l,s:extended;
begin
try
l:=strtofloat(edit1.Text);
except
showmessage('Длина ребра должна быть числом!');
exit;
end;
if l<0 then
begin
showmessage('Длина ребра должна быть больше или равна 0!');
exit;
end;
s:=l*l;
label3.Caption:=floattostr(s);
label5.Caption:=floattostr(6*s);
label7.Caption:=floattostr(s*l);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.