Как научить программу считывать экспоненциальную форму вещественного числа из строки?

procedure TForm1.Button1Click(Sender: TObject);
var
   s : string;
   Lst : TStringList;
   Foo : Double;
   i : Integer;
begin
   s := '3,5 7 3.05E-2,7, 4';
   Lst := TStringList.Create;
   try
      Lst.CommaText := StringReplace(s, ' ', ',', [rfReplaceAll]);
      for i := 0 to Lst.Count - 1 do
      begin
         if TryStrToFloat(StringReplace(Lst[i], '-', '+', [rfReplaceAll]), Foo) then
            Memo1.Lines.Add(Lst[i])
         else
         begin
            Memo1.Lines.Add('Ошибка');
            Break;
         end;
      end;
   finally
      FreeAndNil(Lst);
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream : TstringStream;
  Parser : TParser;
begin
  DecimalSeparator := '.';
  Stream           := TstringStream.Create('3,5 7 3.05E-02,7, 4');
  Parser           := TParser.Create(Stream);
  with Parser do
    try
      while Parser.Token <> toEof do
        begin
          case Token of
            toInteger : Memo1.Lines.Add(TokenString + '  - целое');
            toFloat   : Memo1.Lines.Add(TokenString + '  - вещественное');
            ','       : Memo1.Lines.Add(TokenString + '  - разделитель');
          else
            Memo1.Lines.Add(TokenString + '  - Ошибка');
          end;
          NextToken;
        end;
    finally
      Stream.Free;
      Parser.Free;
    end;
end;