uses
  Math, Types;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Visible := CompareValue(1, 3) = LessThanValue;
end;