Strtofile(Chr(7),'cashopen.txt') copy file cashopen.txt to com1: && Or the name of the relevant com port