[chainik]

а еще можно и так:

Код:

uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
OffsBeg,OffsEnd,i:integer;
begin
OffsBeg:=1;
    repeat
    OffsEnd:=PosEx(',', Edit1.Text, OffsBeg);
    if OffsEnd=0 then OffsEnd:=Length(Edit1.Text)+1;
ListBox1.Items.Add(Copy(Edit1.Text,OffsBeg, OffsEnd-OffsBeg));      //отладка

    if pos(Copy(Edit1.Text,OffsBeg+1, OffsEnd-OffsBeg), Edit2.Text) > 0 then
        ListBox2.Items.Add(Copy(Edit1.Text,OffsBeg, OffsEnd-OffsBeg));
    OffsBeg:=OffsEnd+1;
    until OffsEnd >= Length(Edit1.Text);
end;