How to open a document in Free Pascal/Lazarus

To open a document file using it’s default application use OpenDocument function that exists in LCLIntf unit:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    OpenDocument(OpenDialog1.FileName);
end;