TBlockSocket.CreateSocket
TBlockSocket

procedure CreateSocket; virtual;

Unit
blcksock