Gerar um arquivo em JSON com Delph 7

Pessoal boa tarde, alguém teria um exemplo de como gerar um arquivo Json no Delphi 7.

Grato