TTM_GETTOOLINFOA 如何获得 tooltips_class32 内容

[s11ss]

下面代码获取不到，请指教！

procedure TForm1.Button7Click(Sender: TObject);
var
  t: TOOLINFO;
  buf: array[0..255] of Char;
begin
  Button7.Hint := 'abc';

  t.hwnd := Handle;
  t.uId := GetDlgCtrlID(Button7.Handle);
  t.lpszText := buf;
  t.cbSize := SizeOf(t);
  SendMessage(Button7.Handle, TTM_GETTOOLINFOA, 0, Integer(@t));

  ShowMessage(t.lpszText);
end;

[s11ss]

就是想得到 Button7.Hint 的值