Wenn du nicht hunderte Werte hast, kannst du getrost die erste Möglichkeit nutzen, die ist dann schnell genug. Das könnte so aussehen:
Delphi-Quellcode:
function ExtendedRound(Number, RoundTo: Integer): Integer;
begin
result := Round(Number / RoundTo) * RoundTo;
end;
// Aufruf
ShowMessage(IntToStr(ExtendedRound(135, 10)));
Dies funktioniert übrigens auch mit negativen Werten.