помогите разобраться со строками

[Sega22]

есть строка 2..3..4..5..6..
необходимо записать числа в мемо в виде
2
3
4
5
6
я понимаю что это все очень просто но все же
вот кусок кода

for r:=0 to Length(w) do begin
    word:=copy(w,1,Pos('..',w)-1);
    form3.DBMemo2.Lines.Add(word);
   delete(word,1,Pos('..',word)-1);
        form3.Label2.Caption:=word;
end;

поправть плизз что тут не так.
зарание благодарен.

[SuperVisor]

Если формат именно такой, я бы сделал так:

while length(w)<>0 do
begin
  memo.lines.add(copy(w,1,pos('..',w)));
  delete(w,1,pos('..',w));
end;

[Sega22]

напрочь вешает комп (

[SuperVisor]

Извиняюсь.. =)))

while length(w)<>0 do
begin
  memo.lines.add(copy(w,1,pos('..',w)-1));
  delete(w,1,pos('..',w)+1);
end;

[Stilet]

Вот еще один вариант:

var s:string;i:integer;
begin
 s:='2..3..4..56..6..';
 i:=1;
 while i<length(s) do begin
  if (not (s[i] in ['0'..'9']))and(s[i+1] in ['0'..'9']) then Memo1.Lines.Add('');
  if s[i] in ['0'..'9'] then
   Memo1.Lines.Text:=Memo1.Lines.Text+s[i];
  inc(i);
 end;
end;

Поуниверсальнее как мне думается.

[Sega22]

все разобрался БИГ спс