unit fTMGPrintingAnimation; //kt added this entire unit and form. //kt The initial plan was to have a printing animation. // but it depended on an AVI begin found, and it was easy to break, // so was replaced with simple picture of a printer... interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls, pngimage, Buttons; type TfrmTMGPrinting = class(TForm) lblPrinting: TLabel; pnlBackground: TPanel; Image1: TImage; btnDone: TBitBtn; private { Private declarations } public { Public declarations } end; var frmTMGPrinting: TfrmTMGPrinting; implementation {$R *.dfm} end.