[lmikle]

Да ЯТЬ!
Ну просто же.

Код:

procedure ExtractParamNameFromLine(S : String; var AName : String; var AVal : Double);
var
  sVal : String;
begin
  AName := '';
  AVal := 0;

  If Pos('---',S) > 0 Then
    Begin
      Try
        AName := Trim(Copy(S,1,Pos('---',S)-1));
        sVal := Trim(Copy(S,Pos('---',S)+3,Pos('%',S)-Pos('---',S)-3));
        AVal := StrToFloat(sVal);
      Except
        // Нехорошо прятать эксепшены, но лень вспоминать как tryStrToFloat работает
      End
    End;
end;

Как-то так. Если ничего не напутал, то должно работать.

ЗЫ. Я там основной исходник тоже поправил чуть-чуть.