program Project1;

uses
 windows,
 kol,ComObj{kolComObj};
type  TOnEvent = procedure( Sender: PObj )of object;
{$R *.res}
var
form,Button1:PControl;

//область для процедур
procedure clickbutton(Dummy:pointer;Sender:PControl; var mouse:TMouseEventData);
var exl,WorkBook,Sheet: Variant;
begin
   try

    KOL.OleInit;
   Exl := CreateOleObject('Excel.Application');
   WorkBook := exl.Application.WorkBooks.Add;
   Sheet := WorkBook.WorkSheets[1];
   Sheet.Cells(1,1) := 'Значение';
   Sheet.Cells(1,2) :='15';                 //FileFullPath('Project1.exe')+
   exl.Application.ActiveWorkBook.Saveas(GetWorkDir+'fileName.xls');
   Exl.Visible := True;
   except
     MessageBoxA(0,'Ошибка загрузки Excel','Ошибка',MB_ICONERROR);
             end;
end;
Begin
form:=NewForm(Applet,'excel').SetSize(300,200).centeronparent.Tabulate;
Button1:=NewButton(form,'Кнопка').SetSize(120,50);
Button1.CenterOnParent;
//область для работы
Button1.OnClick:=TonEvent(MakeMethod(nil,@clickbutton));
Run(form);
end.