Convert Delphi VCL ComPort Component to FMX

I have a small VCL program that uses TComport to send data to an Arduino, But it is not working on FMX. We also need to add a property where we can add a DeviceName and a Function to lookup the ComPort where the device <deviceName> is and return its COM#. I uploaded a small program where you can enter a DeviceName in EditBox and by pressing the button it should write the COM# in the other Edit Box Include the word BlueMagic and don't bit more than 50 dollars.