成员函数 SetPosition(Integer).
SetPosition(Integer)
private procedure SetPosition(const Value: Integer);