Создание Popupmenu

[Михаил Юрьевич]

Подскажите направление ,как написать вот такое:
Нужно в popupmenu создать меню из текстового файла, в текстовом файле запись такая:
Вася
Петя
Маша
Гриша
А из второго текстового файла загрузить цыфры в imageindex
2
4
3
7
вообщем зная какому Имени соответствует индекс, нужно создать меню
с иконками
Вася --> 7
Петя--> 3 и т. д.

[evg_m]

r_names:=TstringList.Create;
r_names.LoadFromfile('x:\menunames.txt');
r_images:=...
for j:=0 to r_names.count-1 do
begin
  m:=TmemuItem.Create(names_popup);
  m.Caption:=r_names.strings[j];
  m.imageindex:=strtointdef(r_images.strings[j], -1);
  m.imageList:=Images;
  <... и другие неупомянутые свойства>
 names_popup.add(m);
end;

а не лучше ли хранить все в одном файле

Вася  = 4

r:=LoadFromFile(...);
....
m.Caption:=r.names[j];
m.imageIndex:=strttointdef( r.values[j]);
....

[Михаил Юрьевич]

Да ,спасибо,конечно лучше