Meu executavel já estar com 72 megas

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, MPlayer, GIFImage, ExtCtrls, Jpeg, Registry;

type
  TForm1 = class(TForm)
    menu: TImage;
    wallpaper: TImage;
    BitBtn1: TBitBtn;
    SpeedButton1: TSpeedButton;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image7: TImage;
    Image6: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    Image13: TImage;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Image19: TImage;
    Image20: TImage;
    Image21: TImage;
    Image22: TImage;
    Image23: TImage;
    Image24: TImage;
    Image25: TImage;
    Image26: TImage;
    Image27: TImage;
    Image28: TImage;
    Image29: TImage;
    Image30: TImage;
    Image31: TImage;
    Image32: TImage;
    Image33: TImage;
    Image34: TImage;
    Image35: TImage;
    Image36: TImage;
    procedure image6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton1Click(Sender: TObject);
  private
    procedure CliqueGenerico(Sender: TObject);
  public
    procedure JpgToBmp(FileName: string);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R WALLPAPER.RES}
/////======Inicio Converter Imagems=======/////
procedure TForm1.JpgToBmp(FileName: string);
var
  Bmp: TBitmap;
  Stm: TMemoryStream;
  Jpg: TJpegImage;
begin
  if FileExists(FileName) then
    begin
      Jpg := TJpegImage.Create;
      try
        Jpg.LoadFromFile(filename);
        Bmp := TBitmap.Create;
        try
          Bmp.Assign(Jpg);
          Stm := TMemoryStream.Create;
          Bmp.SaveToStream(Stm);
          Stm.Position := 0;
          Stm.SaveToFile(ChangeFileExt(FileName, ´.bmp´));
        finally
          Stm.Free;
        end;
      finally
        Bmp.Free;
        Jpg.Free;
      end;
    end;
end;
/////========Converter Imagems=======FIM/////

/////Inicio Estrair Imagens==========///////
procedure ImageJpg(arq: string);
var
  PathToSave: string;
  Res: TResourceStream;
begin
  if not FileExists(PathToSave) then
    begin
      Res := TResourceStream.Create(Hinstance, arq, ´JPGFILE´);
      try
        Res.SavetoFile(GetEnvironmentVariable(´WINDIR´) + ´\web\Wallpaper\´ +
          arq);
      finally
        Res.Free;
      end;
    end;
end;
////========Estrair Imagens===========FIM/////

////Inicio dos clicks nos Botões===========///
procedure TForm1.CliqueGenerico(Sender: TObject);
var
  Registry: TRegistry;
begin
  if Sender is TImage then
    begin
    DeleteFile(GetEnvironmentVariable(´WINDIR´) + ´\Web\Wallpaper\cicero.jpg´);
    try
    finally
      ImageJPG(IntToStr(TImage(Sender).tag) + ´jpg´);
    try
      RenameFile(GetEnvironmentVariable(´WINDIR´) +´\Web\Wallpaper\´ +
      IntToStr(TImage(Sender).Tag) + ´jpg´ ,GetEnvironmentVariable(´WINDIR´) +
      ´\Web\Wallpaper\cicero.jpg´);
     finally
          JpgToBmp(GetEnvironmentVariable(´WINDIR´) + ´\web\Wallpaper\cicero.jpg´);
       try
      finally
        SystemParametersInfo(SPI_SETDESKWALLPAPER,
          0, PChar(GetEnvironmentVariable(´WINDIR´) +´\Web\Wallpaper\cicero.BMP´)
          ,SPIF_SENDWININICHANGE);
        try
        DeleteFile(GetEnvironmentVariable(´WINDIR´) + ´\Web\Wallpaper\cicero.jpg´);
      finally
        try
          Registry := TRegistry.Create;
          Registry.RootKey := hkey_current_user;
          Registry.OpenKey(´Control Panel\Desktop´, true);
          Registry.WriteString(´Wallpaper´, GetEnvironmentVariable(´WINDIR´) +
            ´\Web\Wallpaper\cicero.BMP´);
          Registry.WriteString(´ConvertedWallpaper´,
            GetEnvironmentVariable(´WINDIR´)
            + ´\Web\Wallpaper\cicero.BMP´);
          Registry.WriteString(´OriginalWallpaper´,
            GetEnvironmentVariable(´WINDIR´)
            + ´\Web\Wallpaper\cicero.BMP´);
          Registry.CloseKey;
          Registry.Free;
        finally
        end;
      end;
    end;
   end;
  end;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  indice: integer;
begin
  SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top, Form1.Width,
    Form1.Height, 0);

  for indice := 0 to Self.ComponentCount -1 do
    if Self.Components[indice] is TImage then
    TImage(Self.Components[indice]).OnClick := CliqueGenerico;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if SSLeft in shift then
begin
ReleaseCapture();
Perform(WM_SYSCOMMAND, 61458, 1);
end;
end;

end.

var
  Zip: TAbZipKit;
begin
  Zip := TAbZipKit.Create(self);
  Zip.Name := ´Zipper1´;
  Zip.AutoSave := False;
  Zip.DOSMode := False;
  Zip.DeflationOption := doMaximum;
  Zip.ExtractOptions := [];
  Zip.Password := ´123456´;
  Zip.StoreOptions := [soStripDrive, soStripPath, soRemoveDots];
  Zip.FileName := ´c:\path\completo\arquivo.dat´;
  Zip.BaseDirectory := ´c:\path\completo\´;
  Zip.ExtractFiles(´imagem30.jpg´);
  Zip.Free
end;