Открытие PDF файла через нажатие кнопки

OpenDocument('Путь к пдфайлу');

uses LCLType, LCLIntf;
 
{ TFormMain }
 
procedure TFormMain.ButtonOpenClick(Sender: TObject);
var
  fn: string;
begin
  if not OpenDialog.Execute()
    then exit;
 
  for fn in OpenDialog.Files do
       if not OpenDocument(fn)
         then begin
                Application.MessageBox(PChar(Format('Не открывается файл "%s".', [fn])),
                                    'Ашыпка', MB_OK or MB_ICONSTOP);
                exit;
              end;
end;

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
  LCLType, LCLIntf;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
  fn: string;
begin
  if not OpenDialog.Execute()
    then exit;
 
  for fn in OpenDialog.Files do
       if not OpenDocument(fn)
         then begin
                Application.MessageBox(PChar(Format('Не открывается файл "%s".', [fn])),
                                    'Ашыпка', MB_OK or MB_ICONSTOP);
                exit;
              end;
end;
 
end.