Bonjour,

A la fermeture de mon programme, j'avais parfois et très rarement ce message d'erreur :


Par contre, je viens de créer une nouvelle fiche et là quasiment à chaque fermeture du programme (pas de la fiche), j'ai ce message.
Je créé mes fiches de cette manière
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
procedure TfrmAccueil.actInvitesExecute(Sender: TObject);
begin
  with TfrmInvites.create(application) do
  try
    ShowModal;
  finally
    release;
  end;
end;
Par contre dans la fiche que je viens de créer, j'utilise un type Record qui est déclaré dans l'interface
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Type
  TLot = Record
    LOT_IDVIN: Integer;
    LOT_QTE: Integer;
    LOT_MILLESIME: String[4];
    LOT_FORMAT: String[20];
    LOT_DATEACHAT: TDate;
    LOT_PRIXUNIT: Single;
    LOT_COTE: Single;
    LOT_GARDEMINI: Integer;
    LOT_GARDEMAXI: Integer;
    LOT_REMARQUES: String;
    LOT_LOCALISATION: String[50];
    LOT_COTEMILLESIME: String[2];
    LOT_FOURNISSEUR: String[128];
    LOT_MEDAILLE: String[255];
    LOT_TYPEMEDAILLE: Integer;
    LOT_NOTE: String[1];
    end;
J'utilise Delphi 2010.
Pourquoi est-je ce message ?
Merci pour vos suggestions.