Creo que lo tengo. Prueba esto a ver:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
VAR
Foo: HINSTANCE;
begin
Foo := ShellExecute(Form1.Handle,nil,PChar('http://www.google.es/'),'','',SW_SHOWNORMAL);
end;
Ten en cuenta que lo he pueso de memoria y no he comprobado nada, pero me ha llegado la inspiración.