关于替换开始按钮，帮我看看错在哪里？(30分)

动态生成的开始按钮，却不显示 Start.bmp 的图像,只有一个秃秃的按钮,为什么？(代码如下)
var
b: Tbutton;
h: hwnd;
NewImage : TPicture;
oldbitmap: integer;
begin
h := FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil);
ShowWindow(h,0);
b := TButton.Create(nil);
b.ParentWindow := FindWindow('Shell_TrayWnd', nil);
b.Width := 51;
b.Height := 22;
b.Font.Size:=9;
b.Font.Name:='宋体';
b.Left := 0;
b.Top := 0;
b.Visible := true;

NewImage := TPicture.create;
NewImage.LoadFromFile('d:/start.BMP');
OldBitmap := SendMessage(b.Handle, BM_SetImage, 0, NewImage.Bitmap.Handle);
end;


而原来的按钮却可以显示(代码如下)，我错在哪里？
var
StartButton : hWnd;
NewImage : TPicture;
oldbitmap: integer;
begin
NewImage := TPicture.create;
NewImage.LoadFromFile('d:/start.BMP');
StartButton := FindWindowEx (FindWindow('Shell_TrayWnd', nil), 0,'Button', nil);
OldBitmap := SendMessage(StartButton, BM_SetImage, 0, NewImage.Bitmap.Handle);
end;

Repaint I think

接受答案了.