Вычисления

[cargo29]

Извиняюсь за ламерский вопрос хочу сделать прогу расчитывать http://radiozuk.ru/forum/download/file.php?id=96

но когда начал писать стал сразу тупик

procedure TForm1.sButton1Click(Sender: TObject);
begin
 if  sComboBox1.Text='Емкость' then
sEdit2.Text:=Floattostr(25280/(sqr(StrToFloat(sEdit3.Text))*StrToFloat(sEdit2.Text));
end;

end.

что не так ??

[_Engine_]

Недостает скобки.

[cargo29]

Сообщение от _Engine_

Недостает скобки.

не вижу где именно:?

[cargo29]

procedure TForm1.sButton1Click(Sender: TObject);
var
C, F, L:string;


begin
C:=sEdit2.Text;
F:=sEdit3.Text;
L:=sEdit1.Text;


 if  sComboBox1.ItemIndex=0 then
C:=Floattostr(25280/(sqr(StrToFloat(F)))*StrToFloat(L));
end;

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