procedure LoadProfile ;
// N:220 NO3=200 NH4=20 P=40 K=180 Ca=200 Mg=50 S=72 [ EC=2.102 K:N=0.818 K:Mg=3.6 K:Ca=0.9 NH4:NO3=0.1]
var numVar,countVar : integer;
curVar,curValue:string;
FormatBr: TFormatSettings;
begin
FormatBr.DecimalSeparator := ',';
ps:=Kf.profile.text;
countVar:=WordCount( ps,[' ']);