Delphi - un aporte

bueno, vamos a dejar un aporte a los progrmadores que usan delphi y vpascal, ya que mucha pregunta pero nada de iniciativa (no es por molestar).
ojala a alguien le sirva.

inicializacion de socket:
Function IniSocket(Ver:integer):integer;
var
wsaData : TWSAData;
okay:dword;
begin
okay := Wsastartup(Ver,wsaData);
result:=okay;
end;

Llamada
--------------------

if IniSocket($101) <> 0 then
begin
ExitProcess(0);
end;

//;00000000000000000000000000

Obtener la ip local
-----------------------------
Function IPxLoc:Dword;
var
buf:array[0..128] of byte;
okey:dword;
begin
GetHostName(@buf,129);
asm
lea eax,buf
push eax
call GetHostByName
cmp eax,0
je @@fulk
mov eax,dword ptr [eax+10h]
mov eax,dword ptr [eax]
@@fulk:
mov okey, eax
end;
result:=okey;
end;

function InetNtoaP(IPE:Dword):pchar;
var
IPELOCAL:pchar;
begin
asm
push IPE
call Inet_Ntoa;
mov IPELOCAL,eax
end;
result:=IPELOCAL;
end;

llamada
----------------

tit,tex:pchar;

asd:=IPxLoc;
tex:= InetNtoaP(asd);

para obtener la ip de alguna url

Function GHBN(buf:pchar):Dword;
var
okey:dword;
begin

asm

push buf
call GetHostByName
cmp eax,0
je @@chiet
mov eax,dword ptr [eax+10h]
mov eax,dword ptr [eax]
@@chiet:
mov okey, eax
end;
result:=okey;
end;

llamada
---