How to write pie in delphi code example

Example: How to write pie in delphi

function Pi: Extended;