Novo Commit.
Conversão do Exemplo getIpSample para Lazarus.
Authored by: xybersportgames 2018-05-13
Parent: [r1378]
Child: [r1380]