请教各位高人，这是什么语言？

function   HostToIP(Name:   string;   var   Ip:   string):   Boolean; 
var 
    wsdata   :   TWSAData; 
    hostName   :   array   [0..255]   of   char; 
    hostEnt   :   PHostEnt; 
    addr   :   PChar; 
begin 
    WSAStartup   ($0101,   wsdata); 
    try 
        gethostname   (hostName,   sizeof   (hostName)); 
        StrPCopy(hostName,   Name); 
        hostEnt   :=   gethostbyname   (hostName); 
        if   Assigned   (hostEnt)   then 
            if   Assigned   (hostEnt^.h_addr_list)   then   begin 
                addr   :=   hostEnt^.h_addr_list^; 
                if   Assigned   (addr)   then   begin 
                    IP   :=   Format   ( '%d.%d.%d.%d ',   [byte   (addr   [0]), 
                    byte   (addr   [1]),   byte   (addr   [2]),   byte   (addr   [3])]); 
                    Result   :=   True; 
                end 
                else 
                    Result   :=   False; 
            end 
            else 
                Result   :=   False 
        else   begin 
            Result   :=   False; 
        end; 
    finally 
        WSACleanup; 
    end 
end;