Delphi - Removendo Zeros à Esquerda

Function RemoverZeros(S: string): string;
var
I, J : Integer;
begin
I := Length(S);
while (I > 0) and (S[I] <= ' ') do
      begin
      Dec(I);
      end;
J := 1;
while (J < I) and ((S[J] <= ' ') or (S[J] = '0')) do
      begin
      Inc(J);
      end;
Result := Copy(S, J, (I-J)+1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(RemoverZeros(Edit1.Text));
end;