Create sockettest.pas