Разбить строку в delphi

[severin]

Здравствуйте!
Подскажите пожалуйста как разбить строку вида 15296845
на подстроки (выбрать по два символа) чтобы заполнить TStringList
15
29
68
45

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  a,st:string;
  k:integer;
begin
st:='123456';
k:=1;
while true do
 begin

a:=copy(st,k,2);
writeLn(a);
k:=k+2;
if a='' then break;
end;
readln;
end.

ЗЫ проверил работает!

[severin]

Спасибо за помощь!