[chainik]

вот решение
здесь в ListBox1-расщепленная на подстроки строка из Edit1
в ListBox2-формируется список совпадающих строк с строкой Edit2
Числа из строк сделаешь сам (StrToInt())

а вообще-то можно воспользоваться советом PYRO

Код:

function PrepareStr(s:string;term:char):string;
var
i:integer;
begin
Result:='';
for i:=1 to Length(s) do
if s[i]=term then
    Result:=Result+#13#10
else
    Result:=Result+s[i];
end;


procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
ListBox2.Clear;
ListBox1.Items.Text:=PrepareStr(Edit1.Text,',');
for i:=0 to ListBox1.Items.Count-1 do
    if pos(ListBox1.Items[i],Edit2.Text) > 0 then
        ListBox2.Items.Add(ListBox1.Items[i])
end;