[jafera]

Gracias Ecfisa

No se que pasa pero no puedo abrir los archivos zip adjuntos, no solo el tuyo, sino ninguno.

De momento lo he solucionado así y funciona

Código Delphi [-]
 
procedure TF_Parcs.JvDBGrid1DblClick(Sender: TObject);
begin
        if not Assigned(F_Camions) then
        begin
                F_Camions:=TF_Camions.Create(nil);
                F_ModulDades.Camions.Locate('ID',Camions_ParcID.Value,[]);
        end
        else
        begin
                F_ModulDades.Camions.Locate('ID',Camions_ParcID.Value,[]);
                F_Camions.BringToFront;
        end;
end;

Y en el formClose

Código Delphi [-]
 
Action:=caFREE;

Y en el formDestroy

Código Delphi [-]
 
F_Camions:=nil;

Saludos