Как из строки получить подстроки

[ULR]

Здравствуйте! Уважаемые программисты, если вам не сложно, помогите мне пожалуйста Есть много строк. В общем, в строках, где не все нули нужно получить числа. Например : 24,124,0,0 Нужно получить 24 и 124, то есть, получить числа не равные нулю. Проблема из-за этих запятых. Числа могут быть разной длинны до 255. Пробовала сделать так:

N:= pos(',',s);
s1:=copy(s,1,N-1);
if s1 <> '0' then ...

но это я только до первой запятой получаю, как это по-умному делается? чтобы все отличные от нуля получить? Заранее спасибо

[Stilet]

 i:=pos(',',s);
while i<>0 do begin
 i:=pos(',',s);
 q:=copy(s,1,i-1);
 delete(s,1,i);
 что-то делаем с q
 i:=pos(',',s);
end;

[ULR]

Спасибо Вам большое!!!