[Robert01]

A ver si anda de e sta manera:

Código Delphi [-]
 function StrIPToHexIP(IpStr:string) : string;
   function HexIPToStrIp(IpStr:string) : string;
implementation
 
function StrIPToHexIP(IpStr:string) : string;
var
    ConvertingLoop : longint;
    SplitIp : array of string;
begin 
   SplitIp := Split( IpStr , '.' ); 
   for ConvertingLoop := 0  to UBound( SplitIp )  do begin 
      StrIPToHexIP := StrIPToHexIP+chr( SplitIp[ConvertingLoop] ); 
   end; 
end; 
 
function HexIPToStrIp(IpStr:string) : string;
var
    ConvertingLoop : longint;
begin 
   for ConvertingLoop := 1  to 4  do begin 
      HexIPToStrIp := HexIPToStrIp+CStr( ord( copy( IpStr , ConvertingLoop , 1 ) ) )+'.'; 
   end; 
   HexIPToStrIp := left( HexIPToStrIp , length( HexIPToStrIp )-1 ); 
end;

Saludos