программа жалюзи

[алексей2011]

программка жалюзи. на форме есть :
4 Label
1 combobox со списком( Алюминий,Пластик, Железо)
1 button
2 edit



ширина (см) ________ <---сюда вводятся параметры
высота (см)_________<---сюда вводятся параметры
________________ <---комбобокс со списком
button
___________<---Label сюда должен вывести результат программка


w,h,s - ширина высота площадь
с -цена за квадратный метр
с = 700 алюминий
с = 450 пластик
с = 300 железо
s = w*h/(10000) -в квадратных метрах
summ = s*c

результат нужно вывести в Label ...

я не понял как привязать комбобокс и стоимость материала... у меня нет уже идей как сделать... вместо label4 можно использовать edit

[art-programs]

ну чего тут думать?
событие на нажатие кнопки:

var s:real; c,w,h:integer;
begin
case combobox1.itemindex of
0: c:=700; 
1: c:=450;
2: c:=300;
end;

w:=strtoint(edit1.text);
h:=strtoint(edit2.text);
s:=(w*h/(10000)); 
label4.caption:=floattostr(s*c);
end;

в комбо записать: Алюминий,Пластик, Железо