procedure TForm1.Button1Click(Sender: TObject);
begin
    Application.ShowHint := not Application.ShowHint;
end;