var
  Form1: TForm1;{$R resource.res}implementationuses
  ShellApi;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursor := 1;
  Screen.Cursors[crHand] := LoadCursor(hInstance, 'HAND');
end;procedure TForm1.CheckBox2Click(Sender: TObject);
begin
    Form1.Icon.Handle := LoadIcon(hInstance, 'SOUND')
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  CloseBtn.Glyph.Handle := LoadBitMap(hInstance, 'EXIT');
  CloseBtn.Glyph.Width := 64;
  CloseBtn.Glyph.Height := 32;
end;