Comment enregistrer le contenu d'un ShowMessage

Réponse acceptée !
... Perseverare Diabolicum

et je rajouterais de la même manière, pour les objets qui doivent rester disponibles tout au long de l'exécution de l'application, quand vous déclarez un où plusieurs objets dans le OnCreate de la Form d'écrire de suite leurs libérations dans le OnClose :

Procedure TForm1.FormCreate(Sender : TObject);
Begin
  Bmp1 : TBitmap.Create;
  Bmp2 : TBitmap.Create;
End; 

Procedure TForm1.FormClose(Sender : TObject);
Begin
  Bmp1.Free;
  Bmp2.Free;
End;

Il existe aussi la possibilité de faire savoir au composant que l'on vient de créer qu'il doit se libérer quand la fiche (où le composant parent) est libéré :

Procedure TForm1.FormCreate(Sender : TObject);
Begin
  Bmp1 : TBitmap.Create;
  Bmp1.FreeNotification(Self); // Self étant ici Form1
  Bmp2 : TBitmap.Create;
  Bmp2.FreeNotification(Self);
End; 

@+
Cirec