Разбить строку на строки и записать в ListBox

[Aleksandr]

Имеется строка произвольной длины. Необходимо разбить на строки и внести в ListBox. Разделителем является ','
Я разделяю на строки, но в ListBox у меня вносится одной строкой. Как сделать цикл заполнения ListBox?

s1:=' 'строка1', 'строка2', 'строка3', 'строка4',';
 if S1[Length(S1)] = ' ' then
Delete(S1, Length(S1), 1);
s1:=StringReplace(s1, ',',#13#10 , [rfReplaceAll]);
 ShowMessage(s1);
ListBox2.Items.Add(s1);

[Mad_Cat]

var StL:TStringlist;
begin
{........}
StL:=TStringlist.create;
StL.delimiter:=',';
stl.DelimitedText:=sl;
for i:=0 to stL.count-1 do
if trim(stl[i])<>'' then ListBox2.Items.Add(stl[i]);
StL.free;
{...........}
end;

[Aleksandr]

Mad_Cat, спасибо.

[Alter]

Еще проще:

 ExtractStrings([','], [' '], PChar(Edit1.Text), ListBox1.Items);

"Edit1.Text" - исходный текст; "ListBox1.Items" - тип TSTrings.

Компоненты указаны для примера.