Конечно вот код =)
unit Unit1;
interface
uses
Winapi.Windows,IniFiles, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls,
Vcl.ExtCtrls, Vcl.Menus,shellapi;
type
TForm1 = class(TForm)...