[Chichero]

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
VAR
Hayventn : integer;
Begin
Hayvents:=Combobox8.ItemIndex;
If Hayvents=0
Then
Begin
Qcvsj:= 1.136*Anvs*Bavs*(Tbsecnj-Tbsi);
end
Else
Qcvsj:=0;
end;
end;