Получить строку символов из строки их кодов

[Baaandit]

Мне надо перевести код символа в сам символ,но почему-то этот код работает но не до конца.Переводит только 4 символа а должен 6. Кто знает подскажите.

procedure TForm2.Button2Click(Sender: TObject);
var
  i,k: Integer;
  ss,s1:string;
begin
s1:='';
ss:='120.56.57.43.76.34.';
for i:=1 to length(ss) do begin
if (ss[i]='.') then begin
s1:=s1+chr(strtoint(copy(ss,1,pos('.',ss)-1)));
delete(ss,1,pos('.',ss));
 end;

end;
edit1.Text:=s1;
end;

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var s,s1:string;
begin
 s:='';
 s1:='120.56.57.43.76.34.';
 while S1<>'' do
 begin
  s:=s+Chr(strtoint(Copy(s1,1,Pos('.',s1)-1)));
  delete(s1,1,Pos('.',s1));
 end;
 edit1.Text:=s;
end;

И ваш код кстати рабочий

[Serge_Bliznykov]

var
  i, k: Integer;
  ss, s1: string;
begin
  s1 := '';
  ss := '120.56.57.43.76.34.';
  while pos('.', ss)>0 do begin
      s1 := s1 + chr(strtoint(copy(ss, 1, pos('.', ss) - 1)));
      delete(ss, 1, pos('.', ss));
  end;
  edit1.Text := s1;
end;

____________________
SERG1980, коллега, а Вы меня чуток опередили... )

[Baaandit]

А я мучался)