Разделить строчку

[alexprey]

Помогите плз решить проблему. Есть строка длинной в n символов. Надо разделить эту строку на группы с конца по 3 символа
Пример
1234567899
1 234 567 899
Желательно кодом

[novichok1]

procedure TForm1.Button1Click(Sender: TObject);
var s,s2:string ;n,i,m:integer;
begin
s:= Edit1.Text;
n:= length(s);
m:= n div 3;
m:= n-m*3;
Edit2.Text:= copy(s,1,m);
for i:=1 to n div 3 do
begin

Edit2.Text:= Edit2.Text +' '+ copy(s,m+1,3) ;
m:=m+3;

end;

[vovk]

var
x:integer;
s:string;
begin
 s:='1412421124124';
s:=edit2.Text;
 x:=Length(s);
 while (x div 3 > 1) or ((x div 3 =1) and (x mod 3 > 0)) do
 begin
   insert(' ',s,x-2);
   x:=x-3;
 end;

опередили))

[_SERGEYX_]

Желательно кодом

А чем еще её можно разделить?
Навскидку...

procedure TfrmMain.RzBitBtn3Click(Sender: TObject);
var s, s1: string; i: Integer;
begin
  s := '12345678994545454';
  for i := Length(s) downto 1 do s1 := s1 + s[i];
  s := '';
  for i := Length(s1) downto 1 do
  begin
    if (i mod 3) = 0 then s := s + ' ';
    s := s + s1[i];
  end;
  ShowMessage(s);
end;

P.S. Дважды опередили... и коды все разные...