socket class for free pascal / lazarus