Записать данные с ком порта в мемо

[Aleksandr]

Считываю данные с com порта и записываю в Memo1. Если в данных значения не равны нулю то нужно записать в Memo2. У меня почему-то не пишет и в мемо1 пишет только 1 строку
Данные следующего вида
Ѓ 1.40?B
Ѓ 0.92?B
Ѓ 0.36?B
Ѓ 0.18?B
Ѓ 0.34?B
Ѓ 0.10?B
Ѓ 0.02?B
Ѓ 0.00?B
Ѓ 0.00?B
Ѓ 0.00?B

var
  S,S1: String;
  S2:Extended;
begin
  BComPort1.ReadStr(S, Count);
  if cbCRLF.Checked and (S[Length(S)] = #13) then // Добавление перевода строки
    S := S + #10;
  
//  Memo1.Lines.Add(S);

s1:=only_numbers(S); //Выбираю в строке только цифры
    s1:=StringReplace(s1, '.',',' , [rfReplaceAll]); //Меняю разделитель . на ,
    S2:=StrtoFloat(s1);                                 //преобразую строку в число
    If S2<>0 then
    begin
Memo2.Lines.Add(FloatToStr(S2));
Memo1.Lines.Add(S);
//Memo1.Text := Memo1.Text +s;
end;
 If S2=0 then
    begin
//Memo2.Lines.Add(FloatToStr(S2));
Memo1.Lines.Add(S);
//Memo1.Text := Memo1.Text +s;
end;