Donateware Length Calculator Delphi 5

f = StrToFloat(Edit1-Text); c = StrToFloat(Edit2-Text)/1000000; xc = 1/(2**f*c); //1/2pi*f*c) Label6-Caption = FloatToStr(xc); 000000000 Donated by Rixtronix LAB, Support us by subscribing, thanks Please become our partner and sponsor, contact us... Donateware, Engineers help engineers, please visit :) LM324 Dual Op Amp 5Pcs SN74HC165 DIP16 5Pcs 16 Melody Bell Kit Module 1Pc BF494 HF FM FREQUENCY TRANSISTOR TO-92 5Pcs Safety-Correction Capacitor Yellow 1 nF 5Pcs Power Transistor TIP142 Darlington NPN 10