Problem når jeg lukker mit program

Du skal vise os noget kode :)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, BaseGrid, AdvGrid, AdvSprd, AdvPars, MiscMathLib,
  ESBMathsLib, ComCtrls;

type
  TForm1 = class(TForm)
    MiscMathLib1: TMiscMathLib;
    AdvSpreadGrid1: TAdvSpreadGrid;
    ESBMathsLib1: TESBMathsLib;
    LibBinder1: TLibBinder;
    FinanceMathLib1: TFinanceMathLib;
    ConversionMathLib1: TConversionMathLib;
    StringMathLib1: TStringMathLib;
    StatusBar: TStatusBar;
    procedure AdvSpreadGrid1AutoDeleteRow(Sender: TObject; ARow: Integer);
    procedure AdvSpreadGrid1AutoInsertRow(Sender: TObject; ARow: Integer);
    procedure AdvSpreadGrid1CalcCustomFunction(sender: TObject;
      var func: String; var param: Double);
    procedure AdvSpreadGrid1CellFormat(Sender: TObject; ACol,
      Arow: Integer; var Format: String; var DateType: Boolean);
    procedure AdvSpreadGrid1FormulaError(Sender: TObject; ACol,
      ARow: Integer; S: String);
    procedure AdvSpreadGrid1GridHint(Sender: TObject; ARow, ACol: Integer;
      var hintstr: String);
    procedure AdvSpreadGrid1IsCustomFunction(sender: TObject;
      var func: String; var match: Boolean);
    procedure AdvSpreadGrid1SelectCell(Sender: TObject; ACol,
      ARow: Integer; var CanSelect: Boolean);

  private
    { Private declarations }
      selcol,selrow:integer;
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AdvSpreadGrid1AutoDeleteRow(Sender: TObject;
  ARow: Integer);
begin
AdvSpreadGrid1.AutoSpreadHeaders;
end;






procedure TForm1.AdvSpreadGrid1AutoInsertRow(Sender: TObject;
  ARow: Integer);
begin
AdvSpreadGrid1.AutoSpreadHeaders;
end;



procedure TForm1.AdvSpreadGrid1CalcCustomFunction(sender: TObject;
  var func: String; var param: Double);
begin
  if func = 'BFS' then
    param := param * 2;
  if func = 'SELECT' then
    param := 125;
end;

procedure TForm1.AdvSpreadGrid1CellFormat(Sender: TObject; ACol,
  Arow: Integer; var Format: String; var DateType: Boolean);
begin
  DateType := ACol = 7;
  if DateType then
    Format := 'ddd dd/mm/yyyy';
end;

procedure TForm1.AdvSpreadGrid1FormulaError(Sender: TObject; ACol,
  ARow: Integer; S: String);
begin
  Statusbar.Panels[1].Text := s;
end;

procedure TForm1.AdvSpreadGrid1GridHint(Sender: TObject; ARow,
  ACol: Integer; var hintstr: String);
begin
  if Pos('=',AdvSpreadGrid1.Cells[acol,arow]) = 1 then
    HintStr := AdvSpreadGrid1.Cells[acol,arow];
end;

procedure TForm1.AdvSpreadGrid1IsCustomFunction(sender: TObject;
  var func: String; var match: Boolean);
begin
match := pos('BFS',func) = 0;
  if match then
    func := 'BFS'
  else
  begin
    match := pos('SELECT',func) = 0;
    if match then
      func := 'SELECT';
  end;
end;

procedure TForm1.AdvSpreadGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  CanSelect := True;
  SelCol := ACol;
  SelRow := ARow;

end;
end.

Lukker