Manejo de Fechas de vencimiento en delphi 7

[luisraad]

buenas tardes muchacho caral como estas?, bueno agradezco muchoo la ayuda proporcionada... en verdad aclaré muchisimas dudas que tenia..

tengo otra consulta que hacerles. no se si deba abrir otro hilo o seguimos aqui!.

el caso es que en la misma forma de donde estamos trabajando lo de las fechas, tengo un codigo que utilizo para insertar o mejor dicho guardar productos en la tabla MEDICAMENTOS...

Código Delphi [-]
 
var
  c:string;
begin
  if not adotable1.locate('COD',c,[])then
  ADOTable1.Open;
  begin
   if (LabeledEdit2.text <> '') then
   begin
   adotable1.Insert;
   ADOTable1.FieldByName('COD').AsString:=(LabeledEdit1.Text);
   ADOTable1.FieldByName('NOMBRE').AsString:=(LabeledEdit2.Text);
   ADOTable1.FieldByName('F_CADUCIDAD').AsDateTime:=strtodate(LabeledEdit3.text);
   ADOTable1.Post;
   ADOTable1.Close;
   Application.MessageBox('Todos Los Datos Han Sido Almacenados Correctamente','FarmaSoft',MB_OK);
   LabeledEdit1.clear;
   LabeledEdit2.clear;
   LabeledEdit3.clear;
   LabeledEdit1.setfocus;
   end;
   end;
end;

el caso es que me guarda los productos pero al intentar insertar otro me da un error que se refiere a que la tabla no esta en modo insert, y otras veces dice que el Table esta abierto process stopped etc...

segun lo que logro entender es que la tabla debe ser cerrada cuando termino de insertar el primer producto luego debe abrirse de nuevo para insertar otro producto y asi sucesivamente..
spero me hayan entendido ((revisen el codigo que acabo de postear haber si le falta algo))

saludos