Автор: http://delphi.mastak.ru

var
  WSAData: TWSAData;
  SockAddrIn: TSockAddrIn;
  Host: PHostEnt;
  // Эти переменные объявлены в Winsock.pas
begin
  if WSAStartup($101, WSAData) = 0 then
  begin
    Host := GetHostByName(@Localname[1]);
    if Host <> nil then
    begin
      SockAddrIn.sin_addr.S_addr := longint(plongint(Host^.h_addr_list^)^);
      LocalIP := inet_ntoa(SockAddrIn.sin_addr);
    end;
    WSACleanUp;
  end;
end;