Delphi. Структура записи

[schizo]

Помогите пожалуйста! Никак не получается задачу решить((
В магазине игрушек дано наименование товара, цена и возрастные границы. Необходимо:
1) показать названия игрушек, которые предназначены для детей от 4 до 6 лет, и их стоимость не превышает 5000 т.р.
2) показать название самой дорогой игрушки.

преподаватель строго приказал использовать ListBox вот единственное что у меня получилось, но к сожалению не отображает результат:

procedure TForm1.Button1Click(Sender: TObject);
var
n,I: Integer; name: tstrings;
begin
name:=Listbox1.Items ;
price:=Listbox2.ItemIndex;
age:=Listbox3.ItemIndex;
with ListBox1, Memo1 do
for I := 0 to Listbox3.Count do
if (age>3) and (age<7) then
begin
for n := 0 to Listbox2.Count do
if price<5000 then
Memo1.lines.add(inttostr(ListBox1.I temIndex));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var j: integer; name: string;
begin
price:=Listbox2.ItemIndex;
with ListBox1, Memo2 do
begin
for j := 0 to ListBox2.Count do
if price>5000 then
Memo2.lines.add(inttostr(ListBox1.I temIndex));
end;
end;

end.

[fbus]

1 - нет описания структуры записи
2 - не понятно какой листбокс за что отвечает
почему не выводит из-за этого понять проблематично

[denisbrain]

type


MyTypeRecord=record
name:string;
dateB:Tdatetime;
a,b,c:integer;
end;

var 
r:array of MyTypeRecord;
rCount:integer;

.....

begin
rCount:=rCount+1;
setlength(r,rCount);
r[rCount-1].name:='111';
r[rCount-1].a:=1;
r[rCount-1].b:=2;
r[rCount-1].c:=3;
end;