- FIncrement := AIncrement; + if AIncrement > 0 then + FIncrement := AIncrement + else + FIncrement := -AIncrement; better: FIncrement := Abs(AIncrement); -- Regards, Alexey -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20171208/8e8847d4/attachment.html>