unit U_RSColorBig; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TfrmRSColorBig = class(TForm) Label1: TLabel; Label2: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var frmRSColorBig: TfrmRSColorBig; implementation {$R *.dfm} procedure TfrmRSColorBig.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end; end.