Procedimento que Cria um link na Aplicação

[orc 0]

procedure Link(const aAdress: String);var  buffer: String;begin  buffer := 'http://' + aAdress;  ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);end;

[QuIx 0]

Não consegui fazer rodar =/

[tlegiao 0]

coloque no USES do código: "ShellApi"