TTM_GETTOOLINFOA 如何获得 tooltips_class32 内容

下面代码获取不到，请指教！
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;