Delphi - Como abro un doc PDF ?

Hola

Como le hago para crear la opción de abrir un documento PDF?
Gracias

procedure TAbrir.PDF1Click(Sender: TObject);
begin
ShellExecute(0,
nil,
Pchar('C:\Donde esta\Aqui.PDF'),
nil,
nil,
SW_SHOWNORMAL);
End;
mas o menos asi.......