Eine "schöne" Lösung ohne Format

[Desmulator]

Hallo Leute,
also es geht darum , dass ich die Unit SysUtils so weit wie mödlich mir ersparen möchte, deshalb suche ich nach einer möglichkeit folgendes Problem ohne Format oder IntToStr zu lösen:

Delphi-Quellcode:

function LookupDomain(const Domain : String ) : String;
var
  Host : PHostEnt;
  Addr : array[0..3] of String;
begin
  { Host-Daten einholen }
  Host := GetHostByName(PChar(Domain));
  { Die Adresse formaieren }
  Result := Format('%d.%d.%d.%d', [Ord(Host.h_addr^[0]),
                                   Ord(Host.h_addr^[1]),
                                   Ord(Host.h_addr^[2]),
                                   Ord(Host.h_addr^[3])]);
end;

Es egth darum die 4 Wert zu eine gültigen IP zusammen zu fassen , ohne die Unit SysUtils zu verwenden.

Danke für die hilfe^^