удаление ведущих нулей из строки delphi

Delphi 7

Как удалить ведущие нули в строке delphi?

Пример:

00000004357816

function removeLeadingZeros(ValueStr: String): String
begin
 result:= 
end;