delphi 去除左边零

delphi 去除左边零
function  trimLeftZero(src:string):string;
begin
   while copy(src,1,1)='0' do
    src:=copy(src,2,length(src)-1);
   Result := src;
end;