Delphi - ¿Cómo hago un enlace con label1?

Hola:

AL poner un label1 en la Form, pincho dos veces y me sale

Begin

End

En medio va un código, por ejemplo que al pulsar ese label me apareza esta Web http://www.google.com

Hola,
Primero debes de agregar la unidad ShellApi, en la sección de implementation

uses ShellApi;

Luego en el click del Label ingresa la sgte linea:
begin
ShellExecute(Handle,'open',PChar('http://www.google.com'),nil,nil,SW_SHOWDEFAULT);
end;

Espero haberte ayudado.

Saludos

Peruvian

El código me da error:

Build
[Error] Unit1.pas(28): Undeclared identifier: 'ShellExecute'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

¿Sabes porq ué puede ser? Te dejo el código completo.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle,'open',PChar('http://www.google.com'),nil,nil,SW_SHOWDEFAULT);
end;

end.

Hola:

Porque no has hecho lo que te dice Peruvian

>Primero debes de agregar la unidad ShellApi ...

>uses ShellApi;

Añadelo y te queda:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellApi;

Suerte. Virum.

Muchas gracias ahora si tira. Lo primeoque me dice es lo primero que me olvide. SE me fue la olla. Pero gracias por ponerlo contodo dealle.