Вроде играет забавно можно так почти любой файл сделать,

добавить pas файл в unit
и функцию от туда