StrToFloat ошибка при сравнении

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text := '0,15';
  edit2.Text := '0,13';
 
  if strtofloat(edit1.text) > strtofloat(edit2.text) + 0.02 then
    showmessage('bolshe') else showmessage('ne bolshe');
end;

if Abs(x1-x2)<1e-30 then ShowMessage('Равны') else 
   if x1>x2 then ShowMessage('Больше') else ShowMessage('Меньше');

Label1.Caption:=DecimalSeparator;

Label1.Caption:=FormatSettings.DecimalSeparator;

function strto100x(a : string) : int64;
begin
  if pos(',',a) > 0 then
    if pos(',',a) <= length(a)-2 then
      RESULT := strtoint64(copy(a, 1, pos(',',a)-1) + copy(a, pos(',',a)+1, 2))
    else if pos(',',a) = length(a)-1 then
      RESULT := strtoint64(copy(a, 1, pos(',',a)-1) + copy(a, pos(',',a)+1, 1))*10
         else RESULT := strtoint64(copy(a, 1, pos(',',a)-1))*100
  else result := strtoint64(a)*100;
end;

uses Math;  // для Delphi 7..XE, для XE2+ тут будет System.Math
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text := '0,15';
  edit2.Text := '0,13';
 
  if CompareValue(strtofloat(edit1.text), strtofloat(edit2.text) + 0.02) > 0 then
    showmessage('bolshe') else showmessage('ne bolshe');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := '0,15';
edit2.Text := '0,13';
if abs(strtofloat(edit1.text)-(strtofloat(edit2.text) + 0.02))>0.001 then
showmessage('bolshe') else showmessage('ne bolshe');
end;