Ayuda con una duda de la declaracion de clases

[MayerlingCP]

Saludos a todos, necesito que me ayuden a aclarar esta gran duda. Es la primera vez que trabajo en delphi y mi experiencia es 0 en esto xD.
me asignaron una tarea de la universidad y pues hize el programa (al menos calcula lo que el profesor pide) pero trabaje fue con un formulario.
el ejercicio dice:

APLICAR UN LENGUAJE ORIENTADO A OBJETOS PARA DESARROLLAR EL SIGUIENTE PROBLEMA:

Una fábrica de Franela, confecciona 3 modelos de Franela para caballero
con los siguientes precios de venta:

1.- Modelo Casual……….4300

2.- Modelo Sport…………3800

3.- Modelo algodón.…..…3500

Los 3 modelos son fabricados únicamente en talla 14.

La empresa planea fabricar los tres modelos también en tallas 16 y 18, y desea un programa que
calcule los precios de venta para estas nuevas tallas.
Se sabe que por cada número que se aumente en la talla, su precio deberá incrementarse 300 Bolívares.

Escribe un programa que pida el modelo de Franelas y la medida (14,16 ó 18) e imprima en pantalla
su precio de venta correspondiente. Adicionalmente si el pedido es mayor de 12 franelas de
cualquier modelo recibirá un descuento del 10 % el cual se debe reflejar en la factura.

mi codigo del unit1 es:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    imgn: TImage;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    botoncalcular: TButton;
    btnBorrar: TButton;
    botoncerrar: TButton;
    editcasual: TEdit;
    editsport: TEdit;
    editalgodon: TEdit;
    edittalla: TEdit;
    subtotal: TEdit;
    editdescuento: TEdit;
    etotalpagar: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    editotalc: TEdit;
    editotalsp: TEdit;
    editotalalg: TEdit;
    procedure botoncerrarClick(Sender: TObject);
    procedure btnBorrarClick(Sender: TObject);
    procedure botoncalcularClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.botoncerrarClick(Sender: TObject);
begin
close;
end;

procedure TForm1.btnBorrarClick(Sender: TObject);
begin

editcasual. Clear;
editcasual. SetFocus;
editsport. Clear;
editsport. SetFocus;
editalgodon. Clear;
editalgodon. SetFocus;
edittalla. Clear;
edittalla. SetFocus;
subtotal. Clear;
subtotal. SetFocus;
editotalc.Clear;
editotalc.SetFocus;
editotalsp.Clear;
editotalsp.SetFocus;
editotalalg.Clear;
editotalalg.SetFocus;
editdescuento. Clear;
editdescuento. SetFocus;
etotalpagar. Clear;
etotalpagar. SetFocus;
end;

procedure TForm1.botoncalcularClick(Sender: TObject);

var
  m_cas, m_sport, m_alg,  talla, totalcasual, totalsport, totalalgo, productos: Integer;
    total, desc, factura: real;

begin
m_cas:=  StrToInt(editcasual.Text);
 m_sport:= StrToInt(editsport.Text);
 m_alg:= StrToInt(editalgodon.Text);
 talla:= StrToInt(edittalla.Text);

        case talla of
       14:
        begin
          totalcasual:= (m_cas*4300);
          totalsport:= (m_sport*3800);
          totalalgo:= (m_alg*3500);
          editotalc.Text:= IntToStr(totalcasual);
          editotalsp.Text:= IntToStr(totalsport);
          editotalalg.Text:= IntToStr(totalalgo);
         total:=(m_cas*4300) + (m_sport*3800) + (m_alg*3500);
         subtotal.text:= floatToStr(total);
         end;
   
      16:
         begin
           totalcasual:= (m_cas*4600);
          totalsport:= (m_sport*4100);
          totalalgo:= (m_alg*3800);
          editotalc.Text:= IntToStr(totalcasual);
          editotalsp.Text:= IntToStr(totalsport);
          editotalalg.Text:= IntToStr(totalalgo);
          total := (m_cas*4600) + (m_sport*4100) + (m_alg*3800);
           subtotal.text:= floatToStr(total);
           end;
       
    18:
           begin
             totalcasual:= (m_cas*4900);
            totalsport:= (m_sport*4400);
            totalalgo:= (m_alg*4100);
            editotalc.Text:= IntToStr(totalcasual);
            editotalsp.Text:= IntToStr(totalsport);
            editotalalg.Text:= IntToStr(totalalgo);
              total := (m_cas*4900) + (m_sport*4400) + (m_alg*4100);
              subtotal.text:= floatToStr(total);
           end;

      else begin ShowMessage('Talla Incorrecta');
      end;
      end;

      productos:=(m_cas) + (m_sport) + ( m_alg);
      if productos>12  then
          begin
        desc:=(total*10/100);
        editdescuento.Text:=floattoStr (desc);
        factura:=total-desc;
        etotalpagar.Text:=floattostr (factura);
        end
  
      else begin
           desc:=(0);
        editdescuento.Text:=floattoStr (desc);
        factura:=total-desc;
        etotalpagar.Text:=floattostr (factura);
        end;

       

end;



end.

mi DUDA es la siguiente en el programa se puede ver que TForm1 = class(TForm), estará bien mi programa o la clase tenia que ser definida segun el ejercicio en este caso FRANELAS. Espero haberme explicado bien porque lo que no quiero es que el profesor me diga que esta mal porque no es orientado a objetos ya que no desarrolle el ejercicio con sus clases y esas cosas de la POO