[Neftali [Germán.Estévez]]

Pon en un botón el siguiente código Delphi:

Código Delphi [-]
      // Para buscar libro
      ShellExecute(Handle, 'open',
             'http://www.google.es/search?hl=es&q=libro', nil, nil, SW_SHOW);
      // para buscar Casa
      ShellExecute(Handle, 'open',
             'http://www.google.es/search?hl=es&q=casa', nil, nil, SW_SHOW);
      ShellExecute(Handle, 'open',
      // para buscar Clubdelphi
             'http://www.google.es/search?hl=es&q=Clubdelphi', nil, nil, SW_SHOW);
      //
      ....

Añade al uses la unit ShellAPI.

Tú mismo, sólo hay que ir cambiando la palabra.