Como empiezo un sistema de almacen

[espalafox]

Azid Rain: Definitivamente tienes toda la razon, fijate q estos últimos dos días, y antes de leer tu mensaje, pense algo parecido a lo q tu me dices, mira:

TProducto = class(Tobject)
Nombre : String;
Unidad : String;
Clave : String;
Existencia : Float;
public
procedure Alta();
procedure Baja ();
end;

TProductoCafetería = class(TProducto)
public

etc, etc, no se si esta bien, pero crero que con tu comentario me estas dejando las cosas mas claras, al dia de hoy ya me he aventado como dos cursos de delphi pero en el curso le entiendo todo, pero al querer aplicarlo a un problema real me esta costando un poco de trabajo...

de antemano muchas gracias y espero no te olvides de mi.