Bueno la realidad es que el Form si esta utilizando programacion orientada objetos pero la forma en que lo resuelves no lo es precisamente, me imagino que tu profesor te habra pedido que crearas una clase para resolver el problema y en base a eso utilizar un form para mostrar los datos de manera mas visual
Si estoy en lo correcto me arme un sencilla clase llamada TFranela que pide por el constructor el modelo de la franela, tamano y cantidad y en base a estos datos con el metodo calcularPrecio retorna un total donde ya va involucrado tanto el aumetno segun el tamano de la franela y el descuento si se compra mas de 12 piezas.
Ejemplo:
Código Delphi
[-]type
TModelo=(casual=4300,sport=3800,algodo=3500);
TTalla=(catorce=0,dieciseis=300,dieciocho=600);
TFranela=class(TObject)
private
fmodelo:TModelo;
ftalla:TTalla;
fcantidad: DWord;
public
constructor create(modelo:TModelo; talla:TTalla; cantidadWord);
function calcularPrecio: Double;
end;
constructor TFranela.create(modelo: TModelo; talla: TTalla; cantidad: DWord);
begin
inherited create;
self.fmodelo:=modelo;
self.ftalla:=talla;
self.fcantidad:=cantidad;
end;
function TFranela.calcularPrecio: Double;
var totalouble;
begin
total:=ord(fmodelo)*fcantidad+ord(ftalla);
if Self.fcantidad>12 then total:=total-(total*0.10);
Result:=total;
end;
var
f1:TFranela;
precio: Double;
begin
f1:=TFranela.create(algodo,dieciocho,1);
precio:=f1.calcularPrecio();
WriteLn(precio:0:2);
f1.Free;
ReadLn;
end
PD: El programa funciona en modo consola pero puedes copiarte toda la clase y meterla en una unit y hacer el llamado de la clase desde tu form.
si tienes dudas me avisas
SALUDOS.....