Как предать Format человечиский вид

[bulldog5293]

function PEncode(const str: UnicodeString): AnsiString;
var
  len: Cardinal;
begin
  Result := '';
  if (PunycodeEncode(Length(str), PPunyCode(str), len) = pcSuccess) and (Length(str) + 1 <> len) then
  begin
    SetLength(Result, len);
    PunycodeEncode(Length(str), PPunyCode(str), len, PByte(Result));
    Result := 'xn--' + Result;
  end else
    Result := AnsiString(str);
end;

Format('http://%s.%s', [PEncode('президент'), PEncode('рф')]);

как придать строке

Format('http://%s.%s', [PEncode('президент'), PEncode('рф')]);

чиловеческий вид что то типа президент.рф

[Stilet]

А банально

...:='http://'+PEncode('президент')+'.'+PEncode('рф')

уже не катит?

[bulldog5293]

Спасибо, позабыл про это совсем