Receiving files via bluetooth

a Simple application in Delphi (source code).

Connected bluetooth adapter (any, if you want a specific model, I can give a recommendation).

Task: within the application, without any dialogue system to receive files