અહીં સંપૂર્ણ ઉદાહરણ કોડ છે ("ફોર્મ 1" નામના TForm જેનું એકમ "unit1" માં વ્યાખ્યાયિત થયેલ છે):