function Int64_2Ths(I: i64; Separator1k: AnsiString): AnsiString;
var  S: AnsiString;
begin
 S := Int64_2Str(I); // возвращает ansistring
 Result := '';
 while S <> '' do
 begin
   if Result <> '' then
     Result := Separator1k + Result;
   Result := CopyTail(S, 3) + Result;
   S := Copy(S, 1, Length(S) - 3);
 end;
 if Copy(Result,1, Length(Separator1k) + 1) = '-' + Separator1k then
   Result := '-' + CopyEnd( Result, 3 );
end;

function S2DWord(S: PAnsiChar): cardinal;
begin
 Result := 0;
 if S = '' then Exit;
 if S^ = '+' then
   Inc(S);
 while S^ in['0'..'9']do
 begin
   Result := Result * 10 + cardinal(S^) - cardinal('0');
   Inc(S);
 end;
end;

function Str2DWord(const Value: AnsiString): cardinal;
begin
 Result := S2DWord( PAnsiChar(Value));
end;