function trimLeftZero(src:string):string;
begin
while copy(src,1,1)='0' do
src:=copy(src,2,length(src)-1);
Result := src;
end;
function trimLeftZero(src:string):string;
begin
while copy(src,1,1)='0' do
src:=copy(src,2,length(src)-1);
Result := src;
end;