Netspirit, может, все же можно, как-то, выделить блок implementation? Чтобы напечатать туда процедуру просто так?