Записать максимальное значение

[Aleksandr]

Данные считываются с com порта и записываются в Memo1, те которые больше нуля записываются в edtNotes.
Данные следующего вида:
Ѓ 0.00 B
Ѓ 0.00 B
Ѓ 0.00 B
Ѓ 0.00 B
Ѓ 15.00?B
Ѓ 14.66?B
Ѓ 9.80?B
Ѓ 9.82?B
Ѓ 9.86?B
Ѓ 0.00 B
Ѓ 0.00 B
Ѓ 0.00 B
Ѓ 0.20 B
Ѓ 1.00 B
Ѓ 0.20 B
Ѓ 0.50 B
Ѓ 0.20 B
Ѓ 0.00 B
Ѓ 0.00 B

procedure TMainForm.BComPort1RxChar(Sender: TObject; Count: Integer);
var
  S, S1: String;
  f:real;
  s3:real;
  a,b:integer;
  i1,i2: Integer;
    r: Real;
begin

  BComPort1.ReadStr(S, Count);
  if cbCRLF.Checked and (S[Length(S)] = #13) then // Добавление перевода строки
    S := S + #10;
    Memo1.Text := Memo1.Text + S;
 
  s1:=only_numbers(s);
   s1:=StringReplace(s1, '.',',' , [rfReplaceAll]);
  
 i1:=Pos(',',s1);
  if i1>0 then begin
    i2:=PosEx(',',s1,i1+1);
    if i2>0 then s1:=Copy(s1,1,i2-1)+Copy(s1,i2+1,Length(s1)-i2);
  end;
  r:=RoundTo(StrToFloatDef(s1,0),-2);  //результат
  Edit2.Text:=Floattostr(r);
 
i1:=Pos(',',s1);
  if i1>0 then begin
    i2:=PosEx(',',s1,i1+1);
    if i2>0 then s1:=Copy(s1,1,i2-1)+Copy(s1,i2+1,Length(s1)-i2);
  end;
  r:=RoundTo(StrToFloatDef(s1,0),-2);  //результат
  Edit2.Text:=Floattostr(r);

  edtNotes.Text:=edtNotes.Text+Edit2.Text +#9#9+TimeToStr(now) +#13+#10;

  if strtofloat(Edit2.Text)>0 then
begin
  //пишу в базу 
  end;
 if Optionform.RzEdit1.Text<>'' then
 begin
 a:=memo1.Lines.Count;
  if a>Strtoint(Optionform.RzEdit1.Text) then
  memo1.Clear;
 end;

 if Optionform.RzEdit2.Text<>'' then
 begin
 b:=edtNotes.Lines.Count;
  if b>Strtoint(Optionform.RzEdit2.Text) then
 edtNotes.Clear;
 end;

end;

Мне нужно выбирать максимальные значения между нулями.
И еще вопрос почему у меня в edtNotes иногда записывает не 4,35 а
4,3
5
Т.е делит число на части как будто не срабатывает перевод строки, хотя на при считывании данных с эмулятора com порта числа ишет нормально.