Разбор целого числа на отдельные символы

[Crystallon]

Есть какое-то число имеющее от 1 до 4 знаков, например 1567, как разобрать это число на отдельные знаки? Выглядеть это должно как-то так:
simbol1:='1';
simbol2:='5';
simbol3:='6';
simbol4:='7';

[dmitriegorovih]

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
n,n2:integer;
begin
n:=1567;
s:=inttostr(n);
for n2:=1 to length(s) do begin
showmessage(s[n2]);
end;
end;

[_Engine_]

var
  Str : String;  
  i : Integer;
begin
  Str := IntToStr(Chislo);
  for i := 1 to length(str) -1 do
   ShowMessage(i+'-й знак =' + Str[i]);
end;

[conceptviolator]

var i,Exponent:Integer;
begin
i:=5678;
Exponent:=1000;
repeat
ShowMessage(IntToStr(i div Exponent));
i:= i - Exponent*(i div Exponent);
Exponent:=Exponent div 10;
until i<=0;
end;

[Crystallon]

Благодарю за ответы, проблема решена.