>>721
ワーニングの出る Result := False; という行は削除して
単純に Result := IntToStr(10 div iTest); じゃダメか?