The game "Sea battle" on Delphi / implemented using sockets. There is a report in Russian. complete source code,has passed the test.
File list:
sea_battle
.........\__history
.........\.........\Unit1.dfm.~1~
.........\.........\Unit1.dfm.~2~
.........\.........\Unit1.dfm.~3~
.........\.........\Unit1.pas.~47~
.........\.........\Unit1.pas.~48~
.........\.........\Unit1.pas.~49~
.........\.........\Unit1.pas.~50~
.........\.........\Unit1.pas.~51~
.........\.........\Unit1.pas.~52~
.........\.........\Unit1.pas.~53~
.........\.........\Unit1.pas.~54~
.........\.........\Unit1.pas.~55~
.........\.........\Unit1.pas.~56~
.........\Hit.wav
.........\Miss.wav
.........\Project1.cfg
.........\Project1.dof
.........\Project1.dpr
.........\Project1.dproj
.........\Project1.dproj.2007
.........\Project1.dproj.local
.........\Project1.exe
.........\Project1.i64
.........\Project1.idb
.........\Project1.identcache
.........\Project1.res
.........\Project1.~dpr
.........\sound.rc
.........\sound.RES
.........\Start.wav
.........\Unit1.dcu
.........\Unit1.ddp
.........\Unit1.dfm
.........\Unit1.pas
.........\Unit1.~ddp
.........\Unit1.~dfm
.........\Unit1.~pas
.........\Wrong.wav
.........\Новый документ Журнала.jnt