asi quedo mi codigo ..
[codigo]
0501: begin // pedidos
{Application.CreateForm(TFEntregas,FEntregas);
Application.CreateForm(TFPedPresu,FPedPresu);
Application.CreateForm(TFBusPed,FBusPed);
Application.CreateForm(TFCargaRapida,FCargaRapida);
Application.CreateForm(TFPediSeg,FPediSeg);
Application.CreateForm(TFPedDetProd,FPedDetProd);
Application.CreateForm(TFCompItems,FCompItems);
Application.CreateForm(tform1,form1);
Application.CreateForm(TFPedidos,FPedidos);}
FPedidos := TFPedidos.create(nil);
FEntregas := TFEntregas.create(nil);
FPedPresu := TFPedPresu.create(nil);
FBusPed := TFBusPed.create(nil);
FCargaRapida:= TFCargaRapida.create(nil);
FPediSeg := TFPediSeg.create(nil);
FPedDetProd := TFPedDetProd.create(nil);
FCompItems := TFCompItems.create(nil);
with FPedidos do begin
ShowModal;
end;
// if fDatos.TDatos.FieldByName('ALERTA_PRODUCTOS').asboolean then CargoAlertasProd;
FreeandNil(FPedidos);
FreeandNil(FEntregas);
FreeandNil(FPedPresu);
FreeandNil(FBusPed);
FreeandNil(FCargaRapida);
FreeandNil(FPediSeg);
FreeandNil(FPedDetProd);
FreeandNil(FCompItems);
{ FCompItems.free;
FPedDetProd.Free;
FPediSeg.Free;
FCargaRapida.Free;
FBusPed.Free;
FPedPresu.Free;
FEntregas.Free;}
end;
[/codigo]
Lo que hago es entrar a Pedidos , luego a PedPresu y luego a CompImtems y comezar a salir de cada uno .. cuando llego a FreeandNil(FPedidos); da error
si lo comento ..el error lo da el siguiente ...FreeandNil(FEntregas);
Revise y en esos form no tengo FREE de ninguno de estos forms ...
la verdad estoy ..
gracias por tu Rta..
(voy a tratar de crear cada form en el momento que lo uso ..) porque la verdad ni idea por donde viene el problema..