if Anweisung?

[mat72]

Hallo,
ich wollte in einer Procedure einen Wert errechnen und wenn die Bedingung (0.85<Wert<1.15) nicht erfüllt ist, sollte eine Meldung kommen.
Leider funktioniert es nicht so, wie ich es mir gedacht habe.
Stimmt da etwas in der Anweisung nicht?

Delphi-Quellcode:

procedure TForm7.Button1Click(Sender: TObject);
begin
gain:=(foc1-foc2)/100;
Label13.Caption := FloatToStrF(gain, ffNumber, 8, 3);
if (0.85<gain) and (gain<1.15)
  then
    ShowMessage('Please Enter the Calculated Offset!');
end;

Danke für eure Hilfe.
Gruss
Matthias