Delphi6になかったっけ Sign 関数。