Работа с ini файлом

[RamDigga]

Всем привет.
Нужна помощь с реализацией одной фишки.
Допустим у меня есть форма, на ней 2 memo, button и функция чтения с ini файлов.
Я пишу в memo1 слово "человек" и жму на button. Программа лезет в ini файл и видит там следующие :

[Slova]
Человек=Печальный,Весёлый,Грустный.
Пиченька=Вкусная,Сладкая,Чёрствая.

В ini она должна найти ключ написанный мною в memo1 (То есть человек),
выбрать рандомно 1 из 3-ёх значений и вывести его в memo2.
Заранее благодарю.

[mad_cat]

uses IniFiles;
//.....
var i:Tinifile;
s:string;
r:byte;
sl:TStringlist;
begin
//............
Randomize;
I:=TiniFile.Create(extractfilepath(paramstr(0))+'test.ini');
s:=I.Readstring('Slova',Memo.text,' , , ');
sl:=Tstringlist.create;
sl.Delimiter:=',';
sl.Delimited.text:=s;
r:=Random(sl.count);
memo2.text:=sl[r];
sl.free;
ini.free;
//......
end;