一个超级奇怪的问题，与 IntToStr() 有关(100分)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ToolWin, ComCtrls, StdCtrls, ImgList, ExtCtrls;

const
  TB_ADDBUTTONS = WM_USER+20;
  
type
  itbbutton = record
    iBitmap: Cardinal;
    idCommand: Integer;
    fsState: Byte;
    fsStyle: Byte;
    dwData: DWORD ;
    iString: Integer ;
  end;
  TForm1 = class(TForm)
    clbr1: TCoolBar;
    tlb1: TToolBar;
    mm1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    btn2: TButton;
    il1: TImageList;
    btn3: TButton;
    img1: TImage;
    procedure Exit1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  c_toolbarbutton: function: itbbutton
cdecl;
  ibtn: itbbutton;
  hInst: HMODULE;
  ibmp: TBitmap;
  idx: Integer;

implementation

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject);
begin
close;
end;

//从DLL中接收一个TBBUTTON，然后在 Toolbar 上添加相应的按钮
procedure TForm1.btn2Click(Sender: TObject);
begin
  hInst := LoadLibrary(PChar('wxdll.dll'));
  if (hInst<>0) then
  begin
    c_toolbarbutton := GetProcAddress(hInst,'ToolbarButton');
    ibtn:= c_toolbarbutton();
    IntToStr(40);
    
//    ShowMessage(IntToStr(ibtn.iBitmap)+#13+inttostr(ibtn.idcommand));
//     ShowMessage('hey')
            //** This is not OK either.
    ibmp := TBitmap.Create;
    ibmp.LoadFromResourceID(hInst,ibtn.iBitmap);
    idx:=il1.Add(ibmp,nil);
    ibtn.iBitmap :=idx;
    SendMessage(tlb1.Handle, TB_ADDBUTTONS, 1, LongInt(@ibtn));
  end;

end;

procedure TForm1.btn3Click(Sender: TObject);
begin
if(Assigned(ibmp)) then
  ibmp.Free ;
if(hinst<>0) then
    FreeLibrary(hinst);
close;
end;

end.

 extern "C" DLLFUNCTIONS_API TBBUTTON ToolbarButton()
    { 
        TBBUTTON tbb;
        ZeroMemory(&tbb, sizeof(tbb))
   
        tbb.iBitmap = IDTOOL_BMP ;
        tbb.fsState = TBSTATE_ENABLED;
        tbb.fsStyle = TBSTYLE_BUTTON;
        tbb.idCommand = ID_DO_ASTYLE;
        return tbb;
     }

#ifndef _DLL_H_
#define _DLL_H_

#include <windows.h>
#include <cstring>
#include <string>
#include <commctrl.h>


using namespace std;

static HINSTANCE hInst;
HINSTANCE hInst2;
const int NUMBUTTONS = 7;

#define DLLFUNCTIONS_EXPORTS

#define ID_TOOLBAR1 10001
#define ID_TOOL1 10002
#define ID_DO_ASTYLE 10003
#define ID_FILE_NEW 2
#define ID_FILE_OPEN 3
#define ID_FILE_SAVEAS 4

#ifdef DLLFUNCTIONS_EXPORTS
#define DLLFUNCTIONS_API __declspec(dllexport)
#else
#define DLLFUNCTIONS_API __declspec(dllimport)
#endif

extern "C" DLLFUNCTIONS_API TBBUTTON ToolbarButton();

extern "C" DLLFUNCTIONS_API void DLLFunction(HWND);
extern "C" DLLFUNCTIONS_API void DLLHandle(HINSTANCE handle);
extern "C" DLLFUNCTIONS_API void TestReport(HWND handle);
extern "C" DLLFUNCTIONS_API void InitialiseReport(HWND handle);
extern "C" DLLFUNCTIONS_API bool ManagesUnit(void);
extern "C" DLLFUNCTIONS_API HWND Retrieve_Toolbars(HWND hWnd);
extern "C" DLLFUNCTIONS_API void CutExecute();
extern "C" DLLFUNCTIONS_API void CopyExecute();
extern "C" DLLFUNCTIONS_API void PasteExecute();
extern "C" DLLFUNCTIONS_API void Terminate();
extern "C" DLLFUNCTIONS_API void DisableDesignerControls();
extern "C" DLLFUNCTIONS_API void OnToolbarEvent(WORD wParam)
    
extern "C" DLLFUNCTIONS_API void SetPnlBrowsersVisible(bool b);
extern "C" DLLFUNCTIONS_API void SetBoolInspectorDataClear(bool b);
extern "C" DLLFUNCTIONS_API void SetDisablePropertyBuilding(bool b);
extern "C" DLLFUNCTIONS_API bool IsCurrentPageDesigner();
extern "C" DLLFUNCTIONS_API bool SaveFileAndCloseEditor(char * s, bool b);
extern "C" DLLFUNCTIONS_API void MyOpenFile(char * s);
extern "C" DLLFUNCTIONS_API void OpenUnit(char * s);
extern "C" DLLFUNCTIONS_API bool IsForm(char * s);
extern "C" DLLFUNCTIONS_API bool SaveFile(char * s);
extern "C" DLLFUNCTIONS_API void Activate(char * FileName);
extern "C" DLLFUNCTIONS_API bool IsSource(char * FileName);
extern "C" DLLFUNCTIONS_API char *  GetDefaultText(char * FileName);
extern "C" DLLFUNCTIONS_API char * GetFilter(char * editorName);
extern "C" DLLFUNCTIONS_API char * Get_EXT(char * editorName);
extern "C" DLLFUNCTIONS_API void GenerateXPM(char * s);
extern "C" DLLFUNCTIONS_API void NewProject(char * s);
extern "C" DLLFUNCTIONS_API void MainPageChanged(char * editorName);
extern "C" DLLFUNCTIONS_API void Reload(char * FileName);
extern "C" DLLFUNCTIONS_API void ReloadFromFile(char * FileName, char * fileToReloadFrom);
extern "C" DLLFUNCTIONS_API void TerminateEditor(char * FileName);
extern "C" DLLFUNCTIONS_API HWND * Retrieve_Form_Items();
extern "C" DLLFUNCTIONS_API void Init(char * FileName);
extern "C" DLLFUNCTIONS_API void MyShowMsg();

#endif /* _DLL_H_ */